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INTRODUCTION 


LA CONDUITE DU TO7 s'adresse à tous ceux qui possèdent 
déjà une connaissance du langage BASIC {ou de tout autre langage) 
et qui utilisent ou envisagent d'utiliser un TO7. 


Ceux qui, abordant pour la première fois l'informatique, désirent 
apprendre le langage BASIC ou se familiariser avec le fonctionne- 
ment interne des ordinateurs, liront avec profit le BASIC UNIVERSEL 
et MICRO-ORDINATEURS : COMMENT CA MARCHE ? publiés dans 
la même collection. La lecture de ces deux livres de base vous 
permettra d'aborder sans aucune difficulté le manuel BASIC de 
n'importe quel micro-ordinateur. 


Dans ce premier tome nous abordons le BASIC “en général” 
Les multiples possibilités graphiques de la machine, la facon de les 
exploiter au maximum et les extensions seront exposées dans un 
deuxième tome. 


— Dans le premier chapitre du présent ouvrage vous reprenons 
toutes les commandes, instructions et fonctions du BASIC TO7, 
chacunes d'entre elles étant illustrées par un ou plusieurs 
exemples. 


— Le chapitre 2 traite de l'utilisation du crayon optique. 


— Au chapitre3 nous expliquons comment créer vos propres 
programmes en langage machine avec échanges de paramètres 
entre le programme BASIC et le programme écrit en langage 
machine. 


VII 
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Les instructions BASIC 
du TO7 


Ce chapitre s’adresse surtout à ceux qui connaissent déjà le langage 
BASIC. Après avoir abordé quelques généralités sur le BASIC TOY, 
nous reprendrons en les accompagnant d’un exemple, les commandes, les 
instructions et les fonctions du TO7. Celles-ci ont été classées par ordre 
alphabétique afin de pouvoir être retrouvées rapidement. 


1.1. GÉNÉRALITÉS 


1.1.1. Structure des instructions 


Le Basic TO7 accepte des numéros d’instruction compris entre Ÿ et 
63 999. 


Une ligne de programme ou ligne logique peut contenir 255 carac- 
tères maximum. 


Une ligne d’affichage sur l’écran ou ligne physique a une longueur 
de 4ÿ caractères. 


Plusieurs instructions par ligne sont autorisées. Celles-ci devront 
être séparées par le caractère “:”. 


Ainsi une ligne programme occupera au maximum six lignes et 
demi sur l'écran. 


Exemple: La ” ligne programme” suivante comporte quatre instructions 
et a une longueur de 69 caractères. 


19 FORI = @TO 19 : PRINT ” LE CARRE DE ‘;X; 
"EST"; X + X : NEXT | : END 


Il n’est pas obligatoire de séparer le mot clé et les paramètres d’une 
instruction par un espace. Ainsi l'instruction : 


14 IF A=@ THEN PRINT BON’ ELSE C=1 
pourra aussi être écrite de la façon suivante: 
14 IFA = GTHENPRINT'BON'ELSE C = 1 


qui est, malgré son manque total de clarté, syntaxiquement correcte. 
Cependant il faudra obligatoirement insérer un espace lorsqu’un nom de 
variable sera suivi par un mot clé. 


Exemple: le programme suivant affiche le reste de la division par 4, de la 
variable I. 


19 CLS 
29 LETI=7 
3@ PRINT |! MOD 4 


Lancer l’exécution du programme par RUN. Le résultat affiché est 
3. Supprimer maintenant l’espace entre I et MOD. La ligne 39 devient 
donc. 


39 PRINT :MOD 4 


Relancer l'exécution du programme. Le résultat affiché est 0.4. 


En effet, en ayant supprimé l’espace entre I et MOD, le TO7 ne 
détecte plus qu’il doit afficher. le reste de la division de la variable I 
par 4. Pour lui, IMOD est un nom de variable. Celle-ci n’ayant jamais 
été initialisée, sa valeur est supposée être nulle. 
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— Les instructions PRINT et REM peuvent être remplacées respective- 
ment par les caractères ? et ” (apostrophe). 


— L’exécution d’un programme peut être arrêtée en appuyant simulta- 
nément sur les touches CNT et C (ceci correspond à la touche 
BREAK sur d’autres machines). 


— De même les touches CNT et X effacent le reste de la ligne courante. 


1.1.2. Variables 


Le BASIC du TO7 accepte quatre types de variables: entières, 
réelles simple précision, réelles double précision et alphanumériques. 
Les noms de variables peuvent avoir une longueur quelconque (en réalité 
la longueur maximale sera de 253 caractères) toutefois le BASIC ne tien- 
dra compte que des 16 premiers caractères. 


— variables entières: Elles sont identifiées par le caractère %, leur 
valeur doit être comprise entre — 32 768 et + 32 767. 


Exemple: 


19 AN% = 1 982 
20 B%X = 32 767 
30 CH = — 32 768 


— variables réelles simples précision. C’est le type de variable pris par 
défaut. On peut cependant les identifier par le caractère ” !” Leur 
valeur doit être comprise entre 19-%8 et 19*?%8, Leur précision est de 
six chiffres significatifs. 


Exemple: 


19 TOTAL = 1 249.27 
20 TVAI = 18.6 


— variables réelles double précision. Elles sont identifiées par le carac- 
tère # leur valeur doit être comprise entre 19-*8 et 19+*%8. Leur 
précision est de quinze chiffres significatifs. 


Exemple: 


19 Ax = 0.123456789 
29 DELTAX# = 3.5642 D — 3 


— variables alphanumériques. Identifiées par le caractère $, leur 
longueur ne peut excéder 255 caractères. 


Exemple: 


19 A$ = "JE SUIS LE TO7 DE THOMSON" 
20 MOIS$ = DECEMBRE” 


Remarque: On peut reprendre un nom identique pour des variables 
ayant un type différent. LE BASIC TOP, les identifiera comme des 
variables différentes. 


Exemple: 
19 A% — 1982 : À = 125.67 
20 PRINT À %, À 


Remarque : Une valeur non entière, affectée à une variable entière, sera 
arrondie à la valeur entière la plus proche. 


Ainsi : 


AN% — 1982.3 affecte à la variable entière AN la valeur 1982 
AN% 1982.5 affecte à la variable entière AN la valeur 1983 
AN%X 1982.7 affecte à la variable entière AN la valeur 1983 


1.1.3. Constantes 


Comme les variables elles peuvent être de type entier, réelle, simple 
précision, réelle double précision et alphanumérique. 


Exemple: 


A% = 1235% 
TOTAL = 12.59% 
VARIATION# — 9.0000 12345# 


Remarque : 


1. 


La notation sous forme de puissance de 19 peut être utilisée. E pour 
les constantes réelles simple précision et D pour les constantes réelles 
double précision. Ainsi en simple précision 199 peut s’écrire 1E02 et 
9.901 peut s’écrire 1E — 3. 


On peut aussi remarquer la différence de résultat entre: 


A = 9.12345 E — 93 : PRINT À (simple précision) 
et A# = 9.12345 D — 03 :PRINT A# (double précision) 


| 


. Les constantes peuvent être exprimées en binaïre, octal, décimal et 


hexadécimal. Les constantes binaires, octales et hexadécimales seront 
respectivement identifiées par les caractères &B, &O, &H placés 
devant la valeur. 


Exemple: Dans le programme suivant, la constante décimale 16 est 
exprimée sous sa forme binaire, octale et hexadécimale. 


19 C = &B 10000 
20 D = &O 29 
30 E = &H 19 
49 PRINT C, D, E 


1.1.4. Tableaux 


Les tableaux peuvent avoir jusqu’à 255 dimensions, chaque dimen- 


sion comportant au maximum 32 767 éléments. 


Exemple: 


A (1,2, 3, 4) 
GRILLE (29, 24) 


1.1.5. Opérateurs 


Le BASIC TO7 possède trois types d'opérateurs. 


1.1.5.1. Les opérataurs arithmétiquas 


Ce sont: l'élévation à la puissance (touche SHIFT +'@/) la multi- 


plication (+), la division (/), l'addition (+), la soustraction (—), la division 
entière (@) et le modulo (MOD). 


Remarque: La division entière donne le quotient de la division et le 
modulo le reste. 


Ainsi: 75 @ 19 donne 7 quotient de la division de 75 par 19 
et 75 MOD 19 donne 5 reste de la division de 75 par 19 


1.1.5.2. Les opérateus da relation 


Ce sont : 

supérieur à, > — supérieur ou égal à 
égal à, — < inférieur ou égal à, 
inférieur à et <> différent de. 


AV 


1.1.5.3. Les opérataurs logiques 


Ces opérateurs travaillent sur 16 bits. Ce sont: le ET logique 
(AND), le OÙ logique (OR), le complément (NOT), le OÙ exclusif 
(XOR), l'implication (IMP) et lPéquivalence (EQV). 


Pour les fonctions ET, OU, OU exclusif et complément, reportez 
vous au livre “ LE BASIC UNIVERSEL” paru dans la même collection 
Détaillons le fonctionnement des fonctions implication (IMP) et équiva- 
lence (EQV). 


si À — @ et B = 0 alors À IMP B donne 1 comme résultat 
si A = Get B =@alors A EQV B donne 1 comme résultat 
si À = Get B = 1 alors A IMP B donne 1 comme résultat 
si A = 9 et B = 1 alors A EQVB donne @ comme résultat 
si À = 1 et B =@ alors A IMP B donne @ comme résultat 
si A = 1 et B =@ alors A EQVB donne @ comme résultat 
si À — 1 et B = 1 alors A IMP B donne 1 comme résultat 
si À = 1 et B — 1 alors A EQV B donne 1 comme résuitat 


Exemple : Cherchons quel serait le résultat donné par le TO7 si nous lui 
demandions d’évaluer les deux expressions : 


156 IMP 35 et 156 EOV 35 


Tout d’abord écrivons les nombres 156 et 35 en binaire sur 16 bits: 


156 — [9009 |2009 |1991| 1199 
et 35 — 19000 | 9000 |9g19 gg11| 


numéro du bit 15 7 5 (s 


Prenons le cas de l'implication. Appliquons bit à bit les ” règles” de 
calcul énoncées ci-dessus : 


Pour le bit 15 A=6@ et B = @ donc le résultat est 1 
Pour le bit 7 A= 1 et B = @ donc le résultat est @ 
Pour le bit 5 A=6@ et B = 1 donc le résultat est 1 


en effectuant l’évaluation sur les 16 bits nous obtiendrons le résul- 
tat suivant : 


111111111]19119]9911 


c’est-à-dire le nombre — 157. 


En procédant de manière identique pour l’opérateur logique EQV, 
le résultat sera: 


111111119199] 9009 


c’est-à-dire le nombre — 192. 


Nous pouvons vérifier ces deux résultats en entrant, en mode 
commande, les deux ordres : 


PRINT 156 IMP 35 
et PRINT 156 EQV 35 


1.1.5.4. Priorité des opérateurs 


La priorité des opérateurs est la suivante: 


t élévation à la puissance 

— moins unaire 

*“ ,/ multiplication division 

division entière (quotient) 

MOD modulo (reste) 

+. addition soustraction 

Opérateurs de relations (tous les opérateurs de relation ont la même 

priorité). 

Opérateurs logiques (tous les opérateurs logiques ont la même 

priorité). 

Les expressions arithmétiques et logiques sont évaluées de gauche à 
droite selon les priorités des opérateurs. L’ordre des priorités peut être 
changé par l’emploi de parenthèses. 


Exemple: L'expression: 


3+ 4+2 MOD 3 + 10 sera évaluée comme suit 
3+ B8BMOD3 +10 

a —" 
3 + 2 +10 =15 


tandis que: 3+4« (2MOD3 + 10) sera évaluée: 


——— 
3+4+ (2 + 10) 
Ce 

3+4 12 = 51 


1.2. LES COMMANDES DU BASIC TO7 


Dans ce paragraphe nous reprenons les commandes du BASIC du 
TO7. Toutes ces commandes peuvent être utilisées comme des instruc- 
tions vous les retrouverez donc dans le paragraphe Instructions. 
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AUTO: Commande 


AUTO n, i 
n est un numéro de ligne 
i est un incrément. 


La commande AUTO provoque une numérotation automatique des 
lignes de votre programme BASIC. La première ligne aura le numéro n, 
la seconde le numéro n + i, la troisième le numéro n + 2i et ainsi de 
suite. Chaque ligne est validée en appuyant sur la touche ENTREE. 


Si n et i sont omis, ils seront alors forcés à 19. 


Si le numéro de ligne existe déjà il sera suivi d’un astérisque. Vous 
pouvez alors soit appuyer sur la touche ENTREE si vous ne désirez pas 
modifier cette ligne, soit taper une nouvelle instruction; l’instruction 
précédente sera alors perdue. 


Pour arrêter la numérotation automatique, appuyer sur les touches 
CNT et C simultanément. 


Exemples : 


— AUTO 6,8 numérotation des lignes de 8 en 8, le premier numéro 
utilisé étant 6. 


— AUTO numérotation de 10 en 10, le premier numéro utilisé étant 
10. 


Remarque 1: La forme AUTO n, sans incrément provoquera une 
numérotation automatique commençant à la ligne n en reprenant l’incré- 
ment spécifié précédemment. 


Exemple : Entrez la commande AUTO 3, 15. La numérotation se fait de 
15 en 15 puis faites CNT  C pour arrêter la numérotation. Tapez alors 
AUTO 6, : la numérotation reprend à partir du numéro de ligne 60 et se 
fait de 15 en 15. Si vous aviez entré AUTO, la numérotation auraît 
repris à partir de la ligne 10 avec un incrément de 15. 


Remarque 2: Il n’est pas possible de reprendre implicitement la numéro- 
tation à partir du dernier numéro de ligne utilisé. Il faudra toujours 
spécifier clairement ce numéro dans la commande sinon la valeur 10 
sera prise par défaut. 


CONT: Commande. 


La commande CONT permet de reprendre l'exécution d’un 
programme à partir de l’instruction à laquelle il s’est arrêtée. (Arrêt dû à 
une instruction STOP ou END ou à un appui sur les touches CNT C). 


Il est possible avant de reprendre l’exécution d’afficher ou de modi- 
fier les valeurs des variables du programme. Cependant la modification 
d’une ligne quelconque du programme est interdite. 


Exemple: 


19FORI=1TO5 
20 STOP 
39 NEXT ! 


Chaque fois que le programme s’arrête, nous pouvons demander la 
valeur de la variable I, en entrant la commande PRINT I. Nous pour- 
rions aussi modifier la valeur de cette variable en faisant I = 19 par 
exemple. 


Par contre si nous avions voulu remplacer l'instruction 29 STOP 
par 29 PRINT L, il n’aurait pas été possible de reprendre l’exécution par 
la commande CONT. 


Remarque: La commande CONT ne permet pas de reprendre 
l'exécution du programme lorsque l’arrêt de celle-ci a été provoqué par 
une erreur. 


DELETE: Commande. 


DELETE n-m 
n et m sont des numéros de lignes. 


La commande DELETE supprime toutes les lignes de programmes 
dont le numéro est compris entre n et m. Les lignes de numéro n et m 
seront aussi supprimées. n et m peuvent être omis. Si n est omis, le 
numéro pris par défaut est celui de la première ligne du programme. Si m 
est omis, le numéro pris par défaut est celui de la dernière ligne du 
programme. Si n est spécifié seul et sans tiret alors seule la ligne de 
numéro n sera supprimée. 
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Exemple: 


DELETE 29 — 190 supprime toutes les lignes de 29 à 199 
DELETE — 199 supprime toutes les lignes du début du program- 
me à la ligne 199 


DELETE 199 — supprime toutes les lignes de la ligne 199 à la fin 
du programme 
DELETE 199 supprime la ligne 199 uniquement 
Remarque : 


DELETE — supprime toutes les instructions du programme. 


GOTO : Commande. 


GOTO n 
n est un numéro de ligne. 


La commande GOTO permet de reprendre l’exécution d’un 
programme à partir de la première instruction de la ligne de programme 
dont le numéro est n. Toutefois, contrairement à la commance RUN n, 
les variables ne seront pas remises à zéro. 


(Voir aussi la commande RUN). 


LIST: Commande. 


LIST : n-m 
n et m sont des numéros de ligne. 


La commande LIST permet d’obtenir le listage d’une partie ou de 
tout le programme contenu en mémoire. n et m ont la même signification 


que dans la commande DELETE. Reportez-vous donc à cette 
commande. 


Exemple: 


LIST 10 — 29% liste le programme de la ligne 1 à la ligne 2009 
LIST — 299 liste le programme du début à la ligne 299 
LIST 59 — liste le programme de la ligne 59 jusqu'à la fin 
LIST 59 liste la ligne 59 uniquement 


Remarque : 


1) Le listage peut être arrêté momentanément en appuyant sur la touche 
STOP. Un appui touche quelconque le fera continuer. 


2) Le listage peut être arrêté définitivement en appuyant sur les touches 
CNT C 


LOAD: Commande. 


LOAD ”’nom”, R 
nom est le nom donné au programme lors de la sauvegarde. 


La commande LOAD permet de recharger le programme dont le 
nom est spécifié. La mise en route et l’arrêt du magnétophone sont effec- 
tués automatiquement par le TO7. Sur l’écran seront affichés les noms 
des différents fichiers (programme ou données) trouvés avant le 
programme demandé. Quand le programme est chargé, la mention OK 
apparaît sur l’écran. 


Si le nom est omis, le programme chargé sera le premier 
programme rencontré sur la cassette. 


Si au moment du chargement des fichiers sont ouverts, ils seront 
refermés par la commande LOAD. 


Il est possible de lancer l’exécution du programme immédiatement 
après le chargement. Pour cela, il suffit de spécifier l’option ,R après le 
nom du programme. Lorsque l’option R est présente, les fichiers ouverts 
ne sont pas refermés avant le chargement. 


Exemple 1: Chargement du programme dont le nom est PROG 1. Les 
fichiers ouverts sont refermés. 


LOAD "PROG 1” 


Exemple 2: Chargement et exécution du programme dont le nom est 
CALCUL. Les fichiers ouverts ne sont pas refermés. 


LOAD CALCUL” ,R 
Remarques : 


1) Il n’est pas possible d’arrêter le chargement en appuyant sur les 
touches CNT C. Il faudra alors systématiquement utiliser le bouton 
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RESET. Ceci peut être utilisé pour obtenir le nom de tous les 
programmes stockés sur une cassette. En effet il suffit de demander le 
chargement d’un programme qui n’existe pas. 


2) Le nom du programme doit être le même que celui donné lors de la 
sauvegarde. Reportez-vous à la commande SAVE pour les règles 
concernant le nom du programme. Si les trois caractères de suffixe 
ne sont pas précisés, ils seront forcés à BAS. Ainsi les deux com- 
mandes. 


LOAD "CALCUL" 
et LOAD "CALCUL. BAS” 


sont identiques. 


LOADM : Commande. 


LOADM nom” ,d ,R 
nom est le nom d’un programme écrit en langage machine 
d est un déplacement. 


La commande LOADM permet de recharger un programme en 
langage machine qui avait été sauvegardé sur cassette. Si le déplacement 
d est omis, le programme sera rechargé à l’adresse à laquelle il se trou- 
vait lorsqu'il a été sauvegardé. Si d est spécifié, le programme sera 
rechargé à l’adresse obtenue en ajoutant le déplacement d à l’adresse à 
laquelle le programme se trouvait lors de la sauvegarde. 


Comme pour la commande LOAD, l'option R peut être utilisée. 
L'exécution du programme en langage machine débutera alors dès que le 
chargement sera terminé. 


Exemple: Le programme suivant charge un programme en langage 
machine à l’adresse 32 79 


19 1= 32699 
20 CLEAR | 
25 | = 32 699 


39 FOR X=1+1TO1+5 

49 READ A: POKE |, À 

59 NEXT X 

69 DATA R H4F, & HB7, & H7F, & HC6, & H39 


CLRA, STAR 42H Aa$ RTS . 


On peut vérifier que le programme en langage machine est bien à 
l'adresse 32 79 avec le programme BASIC suivant. 


199 1=32 709 

119 FOR X=]I TO 1 +4 

129 PRINT HEX$ (PEEK(I)) : “" ; 
139 NEXT X 


Sauvegardons le programme en langage machine. Pour cela nous 
entrons la commande. 


SAVEM "MC1”, 32709, 32 704, 32 709 


Après avoir fai NEW rechargeons le programme en langage 
machine à l’adresse 32 729 c’est-à-dire 29 octets plus loin par rapport à 
son adresse initiale. 

CLEAR ,32 719 

LOADM ‘’MC1' ,29 

Nous pouvons vérifier que le programme en langage machine a 


bien été rechargé à l’adresse 32 729. Pour cela il suffit de réutiliser le 
programme BASIC précédent en remplaçant la ligne 199 par: 


199 1 = 32729 


Remarques: Si lors de la sauvegarde aucune extension n’est précisée 
dans ”nom”, le BASIC TO7 prendra par défaut l’extension. BIN. 


Voir aussi la commande SAVEM. 


MERGE: Commande. 


MERGE ”’nom” ,R 
nom est le nom d’un programme qui a été sauvegardé en ASCII 


La commande MERGE fusionne le programme situé en mémoire 
avec le programme sauvegardé sur cassette ou sur disquette et dont le 
nom est spécifié. 


La fusion est réalisée suivant les numéros de ligne. Aïnsi si deux 
numéros de ligne sont identiques, la ligne conservée sera celle du 
programme sauvegardé sur la cassette ou la disquette. 
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L'option R permet de lancer l’exécution du programme obtenu dès 
que la réunion des deux programmes a été réalisée. 


Exemple: Sauvegardons le programme suivant sous le nom PROG 2. 


15 PRINT "PROG 2” 
29 REM PROGRAMME DEVANT ETRE SAUVEGARDE EN ASCII 
30 PRINT "LIGNE 39 - PROG 2” 


SAVE "PROG 2” ,A 


Entrons le programme ci-dessous, après avoir tapé la commande 
NEW. 
5 REM PROG 1 
19 PRINT ‘PROG 1" 
20 STOP 


Pour fusionner les deux programmes il suffira de rentrer la 
commande. 


MERGE ‘PROG 2” 
ou MERGE "PROG 2" ,R pour faire exécuter le nouveau programme 
immédiatement. 


Remarquer que la ligne 29 STOP a été remplacée par la ligne 
24 REM PROGRAMME DEVANT ETRE SAUVEGARDE EN 
ASCII. 


NEW : Commande. 


NEW 


La commande NEW efface le programme et détruit toutes les 
variables. Cette commande doit être utilisée avant l'entrée d’un nouveau 
programme BASIC. 


MOTORON, MOTOROFF : Commandes. 


MOTORON 
MOTOROFF 


Ces deux commandes permettent respectivement la mise en marche 
et l’arrêt du magnétophone. 
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RUN: Commande. 


RUN n 
n est un numéro de ligne. 


Cette commande permet de lancer l’exécution d’un programme à 
partir de la première instruction de la ligne de programme dont le 
numéro est n. Cette commande referme tous les fichiers ouverts et remet 
à zéro toutes les variables du programme. Si l’on désire conserver le 
contenu des variables, il faut utiliser la commande GOTO. 


Si le numéro de ligne est omis, l'exécution commencera au début du 
programme, 


I est possible de faire exécuter un programme sauvegardé sur 
cassette (ou disquette) avec la commande RUN ”’nom”. Le programme 
dont le nom est donné sera recherché, chargé en mémoire, puis exécuté. 


SAVE : Commande 


SAVE ”’nom”, À ou P 
nom est le nom du programme. 


La commande SAVE permet de sauvegarder un programme sur 
une cassette ou une disquette. 


Le nom du programme ne pourra pas dépasser 11 caractères: 
8 caractères plus trois caractères de suffixe séparés des autres caractères 
par un point. Si les trois caractères de suffixe ne sont pas précisés, ils 
seront forcés à ” BAS ”. Ainsi la commande SAVE ” PROG” donnera en 
réalité le nom PROG.BAS à votre programme. 


L'option À permet de sauvegarder le programme en ASCII. Utili- 
sez la obligatoirement si vous désirez fusionner ce programme avec un 
autre par la suite (commande MERGE). lou LIST*C ASS: ---- 


L'option P permet de ” protéger” votre programme. Ainsi, après 


l'avoir rechargé, il sera impossible de le lister, d’insérer des nouvelles 
lignes ou d'utiliser les commandes AUTO, PEEK, POKE et SAVE. 
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Exemple: 


SAVE "PROG 1” 
SAVE ”CYCLO.IDE”, A 
SAVE “ESS”, P 


Remarques : 


1) Il est possible de “resauvegarder” un programme protégé, mais il 


faut pour cela obligatoirement le sauvegarder en mode protégé en 
utilisant l’option P, ce qui ne nous avance pas énormément !.. 


2) Un programme protégé peut toutefois contenir des instructions 
PEEK et POKE. Seules les commandes PEEK et POKE sont 
interdites. 


3 


sr 


Si les trois caractères extension du nom du programme sont présents, 
ils devront être indiqués dans la commande LOAD. Si ces trois 
caractères ont été omis ou forcés à .BAS il ne sera pas nécessaire de 
les rappeler dans la commande LOAD. Ainsi un programme sauve- 
gardé par la commande SAVE ” PROG L.ESS” devra être rechargé 
par la commande LOAD ” PROG 1.ESS” tandis qu’un programme 
sauvegardé par la commande SAVE ”’PROG1.BAS” ou SAVE 
PROG 1” pourra être recharge par LOAD ” PROG 1”. 


SAVEM: Commande 
SAVEM nom”, adresse début, adresse fin, adresse exécution. 


nom est un nom de programme écrit en langage machine. 
adresse début est l’adresse de début du programme écrit en langage 
machine 

adresse fin est l’adresse de fin du programme écrit en langage 
machine 

adresse exécution est l’adresse à laquelle commence l’exécution du 
programme écrit en langage machine (point d’entrée). 


La commande SAVEM permet de sauvegarder un programme écrit 
en langage machine sur cassette ou sur disquette. Le nom du programme 
Suivra les règles indiquées dans la commande SAVE. Toutefois si les 
Caractères de suffixe ne sont pas précisés, ils seront forcés à .BIN. 
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Exemple: 


SAVEM "’MC1”, 32 709, 32 715, 32 7@4 


Sauvegarde du programme en langage machine situé aux adresses 
32700 à 32715 et dont l’exécution commence à l’adresse 32704. 


Remarque : L'adresse d’exécution est obligatoire si l’on désire utiliser la 
commande LOADM avec l'option R, sinon elle peut être forcée à zéro. 


SAVEM “MC2.BIN”, 32 799, 32 715, @ 


1.3. LES INSTRUCTIONS ET FONCTIONS DU TO7 


ABS : Fonction 


ABS (x) 
x est un nombre exprimé en décimal, hexadécimal ou octal. 
La fonction ABS donne la valeur absolue du nombre x. 


Exemples : 


1) Le programme suivant affiche la valeur absolue de n’importe quel 
nombre. Pour arrêter son exécution, donnez à x la valeur 9999. 


14 ÊLS 

C4 INPUT" A" 5 

34 IF K20039 “THEN EHD 

44 FRIHT "LA YALELIF AESLUE GE "#3 "EST:" 
5 ASC 0 


24 GOTO £6 


2) Le programme suivant vérifie qu’un nombre est bien compris entre 
— À et + À. 


14 CLS 

4 INPUT "VALEUR LIMITE ":i4 

34 INPUT "HAMERE "x 

44 IF AESC# 254 THEH PRINT "ENTRER UN HO 

BFE COMFRIS ENTRE "i-A;"ET ":A:GOTO 36 
ELSE FFIHT "CORRECT" 


Remarque : Si x est exprimé en hexadécimal ou en octal, sa valeur sera 
considérée comme une valeur non signée. Ainsi PRINT ABS (&HFF) 
donnera 255 et non I. 
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ASC : Fonction 


ASC (c) 
c est une variable alphanumérique. 


La fonction ASC donne le code ASCII du premier caractère de la 
variable alphanumérique c. La variable alphanumérique c ne peut pas 
être vide. 


Exemple: 


Le programme suivant donne le code ASCII de n’importe quelle 
lettre du clavier (majuscule ou minuscule). Pour arrêter le programme 
répondre FIN à la question LETTRE ? 

14 CLS : 

24 PRINT "ENTRER LA LETTRE GESIFEE" 

34 INPUT "LETTRE";LS : 

4 IF L$="" THEN PRIHT "LA CHAIME HE FEU 

T PAS ETRE YILCE." : GOTO 34 

54 IF L$="FIH" THEH EHD | | 

SA PRINT "LE CODE ASCII CE ":LEFT#& LS: 17: 

i" EST ":ASCELS 

ra GOTO 2 


Remarque: La fonction ASC ”reconnait” aussi les caractères gra- 
phiques utilisateur. 

Ainsi le caractère graphique utilisateur Ÿ aura le code 128 
caractère graphique utilisateur 1 aura le code 129 
caractère graphique utilisateur 2 aura le code 130 

etc 


— == 
® © 


jusqu’au caractère graphique utilisateur 127 qui a le code 255 


Exemple: 
14 CLE 
24 CLEAR:.3 
Eli DEFGR SE Gus. À, 255.4, 200, 4,292. 4 
44 DEFGRSE 1 1251,51,11.51,51,51.91.91 
26 CEFGRSE Z 21 70,89. 170, 85.164.89, 174,85 


EM FOR I=4 T0 & 

FA FRINT "LE CARACTERE GRAPHIQUE UTILISA 
TEUR":1:"4 LE CODE"; ASC GRSE I 52 

84 HET 
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ATTRB: voir chapitre POSSIBILITÉS GRAPHIQUES (tome 2) 


BEEP : Instruction 
BEEP 


L’instruction BEEP génère un petit ” bip” sonore identique à celui 
qui est émis lors d’un appui touche. 


Exemple: 


14 CLS 

£G IHPUT "HOMBRE DE ‘BIF‘":H 
34 FOR Ii TÜH 

44  EEEFP 

24 HEAT I 


BOX et BOXF : Voir chapitre POSSIBILITÉS GRAPHIQUES 
(tome 2) 


CDBL: Fonction 


CDBL (n) 
n est une variable numérique. 


La fonction CDBL convertit une variable de type entier ou simple 
précision en une variable du type double précision. 
Exemple: 


19 CLS 

20 A%=5 : B=3.14 159 
39 C# = CDBL (A%) 

49 D# = CDBL (B) 

59 PRINT A%, C# 

64 PRINT B, D# 


CHR: Fonction 


CHRS (x) 
x est un nombre compris entre @ et 255. 


La fonction CHR$ renvoie le caractère dont le code est x. 
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_— si x est compris entre @ et 127 le caractère obtenu sera celui dont le 
code ASCII est x. 


_— si x est compris entre 128 et 255 le caractère obtenu sera le caractère 
utilisateur dont le numéro est x — 128. 


Exemple: Dans le programme suivant nous créons le caractère utilisa- 
teur numéro 3 qui aura la forme suivante. 


19 CLS 

29 CLEAR, 4 

39 DEFGRS (3) = @, & H18, & H3C, &H7E, RH7E, & H3C, &H18,9 
40 PRINT CHRS (&H48) ‘ lettre H 

59 PRINT CHRS (131) ‘ caractère graphique numéro 3 


CINT : Instruction 


CINT (x) 
x est une variable numérique. 


La fonction CINT convertit une variable de type réel simple ou 
double précision en une variable de type entier. Le nombre réel est 
arrondi au nombre entier le plus proche. 


Exemple: 
19 CLS 
20 A4 — 3.14159262 
39 B—5.45 


49 PRINT CINT (A#), CINT (B) 
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CLEAR: Instruction 


CLEAR nc, ad, ng 
nc nombre d’octets à réserver pour le traitement des chaînes de 
caractères 
ad adresse maximale utilisable par le BASIC 
ng nombre de caractères graphiques 


L’instruction CLEAR efface toutes les variables du programme. 
De plus elle permet: 


— de modifier la place réservée par défaut pour le traitement des 
chaînes de caractères (300 octets). 


— de réserver de la place pour venir stocker un programme écrit en 
langage machine en indiquant au BASIC l’adresse maximale à 
utiliser. 


—. de réserver de la place pour les caractères graphiques utilisateur. 


Exemple: L’instruction suivante 
19 CLEAR 209, 32 799, 4 


diminue la place réservée pour le traitement des chaînes de caractères, 
(299 octets au lieu des 399 octets pris par défaut), réserve 67 octets pour 
un programme en langage machine (si vous ne disposez pas de l’exten- 
sion 16 K la plus grande adresse mémoire existante est 32 767) ainsi que 
la place nécessaire pour déclarer quatre caractères graphiques 
utilisateur. 


Remarques : 

1j L’instruction CLEAR devra toujours être placée en tête du 
programme BASIC. En effet elle effaçe toutes les vari du 
programme. 


2) L'adresse maximale utilisable par le BASIC est effectivement 
utilisée par celui-ci. Ainsi dans notre exemple, le sous-programme 
écrit en langage machine ne pourra commencer qu’à l’adresse 32 791 
et non 32 799. 


3) L’instruction NEW ne ”’récupère” pas la place réservée avec une 
instruction CLEAR. Ceci est aussi vrai pour le RESET. 
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CLOSE: Instruction 


CLOSE #n,, #12 
ni, n2 nombre décimal compris entre 1 et 15. 


L'instruction CLOSE referme les fichiers dont les numéros de 


canal sont n;, n2, etc. Si aucun numéro de canal n’est spécifié, tous les 
fichiers ouverts sont refermés. Le signe # est facultatif. 


Exemples : 
1) 19 CLOSE 31,3 


2) 19 ON ERROR GOTO 1909 
20 CLS 
39 OPEN "0”,#3,' DONNEES" 


1909 PRINT FERMETURE DU FICHIER DONNEES ” 
1919 CLOSE 3 
1929 END 


CLS: Instruction 
CLS 
L'instruction CLS efface l’écran. 


Remarque : Placez toujours cette instruction en tête de vos programmes 
pour obtenir un écran propre surtout si vous lancez l’exécution de votre 
programme directement à partir de l’option 2 de la page de présentation. 


2 UN PROGRAMME ENREGISTRE 


En effet celle-ci n’est pas effacée par le TO7. 


COLOR: Voir chapitre POSSIBILITÉS GRAPHIQUES 


CONSOLE: Instruction 


CONSOLE lp, Id, c, s 
lp, Id numéros de ligne compris entre @ et 24 
c mode de progression des couleurs c—@ ou 1 
s mode de défilement s —@, 1 ou 2. 
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L’instruction CONSOLE permet de se définir une zone de travail 
sur l'écran; lp indique la première ligne de la zone de travail, Id la 
dernière. 


Exemples : 


1) Dans l’exemple suivant nous réservons les quatre premières lignes de 
l'écran pour écrire un titre qui ne devra jamais être effacé. 


19 CLS: SCREEN 3,4,4 

29 PRINT: ATTRB 1,1 

30 PRINT ” EXEMPLE CONSOLE” 

49 CONSOLE 4,24 

59 CLS: ATTRB 9,04 

69 PRINT ‘PREMIERE LIGNE ZONE DE TRAVAIL" 

79 LOCATE 9,12 

89 PRINT ‘POUR EFFACER APPUYER SUR UNE TOUCHE” 
99 E$ = INPUTS$(1) 

199 CLS 


Vous remarquerez que le titre n’est jamais effacé. Toutefois il est 
toujours possible de venir écrire dans la zone réservée en utilisant 
l'instruction LOCATE. Ainsi soulignons en rouge le titre EXEMPLE 
CONSOLE ” avant d’effacer l’écran. Nous rajouterons donc les instruc- 
tions suivantes. 


95 LOCATE 9,3 : ATTRB 1,1 : COLOR 1 
96 PRINT La EEE =———— M 
97 ATTRB 9,9 : COLOR 3 


Avant de relancer l’exécution de votre programme entrez la 
commande CONSOLE ÿ de façon à redisposer de la totalité de l'écran. 


2) Dans l'exemple suivant nous séparerons l’écran en deux zones en 
spécifiant pour chacune d’entre elles des couleurs différentes pour les 
caractères. Ainsi dans la première zone, les caractères seront de 
couleur jaune avec un fond bleu et dans la seconde ils seront de 
couleur verte avec un fond noir. Le tour de l’écran ne pouvant pas 
être partagé nous le mettrons en noir dans les deux cas (voir instruc- 
tion SCREEN). 
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5 REM DEFINITION PREMIERE ZONE 
19 CLS 

29 CONSOLE 9,12 

30 SCREEN 3,4,9 

49 PRINT “PREMIERE ZONE” 

59 REM DEFINITION DEUXIEME ZONE 
69 CONSOLE 13,24 

79 CLS 

89 SCREEN 2,9,9 

99 PRINT DEUXIEME ZONE” 

199 CONSOLE 9,24 


Le paramètre c de l’instruction CONSOLE définit le mode de 
progression des couleurs. 


Si c est égal à zéro, alors tous les caractères seront imprimés dans 
la couleur courante et ce quelque soient les couleurs choisies pour la 
zone dans laquelle l’impression est réalisée. 


Si c est égal à un tous les caractères seront imprimés dans la 
couleur de la zone correspondante quelque soit la couleur courante. 


Exemple : 


3) Reprenons le programme de l’exemple précédent. Modifions l’instruc- 
tion 199 comme suit 


199 CONSOLE 9,24,C 


et rajoutons les instructions suivantes. 


95 C=@ 
96 COLOR 1,2 ‘couleur courante des caractères rouge sur fond vert 
119 LOCATE 9,3 


120 PRINT “ESSAI CONSOLE AVEC C=":;C 
139 LOCATE 9,29 
149 PRINT ‘ESSAI CONSOLE AVEC C ="; C 


Lancez l'exécution du programme. Changez la valeur de C: 
95 C = 1 puis relancez l’exécution du programme. Cette fois-ci les 
textes sont affichés avec les couleurs spécifiées pour chaque zone d’écran. 


25 


Le paramètre s permet de fixer le mode de défilement. Celui-ci sera 
normal si s est égal à zéro, lent si s est égal à un et se fera par page sis 
est égal à deux. 


Exemple : 


4)Pour voir ces différents modes, reprenons l’exemple 2 en modifiant 
l'instruction 19. 


199 CONSOLE 9,24,1,S 
Rajoutons les instructions suivantes : 


95 S—@ 

119 FOR 1=1 TO 199 
129 PRINT I 

139 NEXT I 

149 CONSOLE 9,24,0,9 


La dernière instruction CONSOLE remet votre écran dans son état 


habituel. Relancez l’exécution du programme en modifiant l'instruction 
95 en: 


95 S — 1 
puis 95 S — 2 


Voir aussi chapitre POSSIBILITÉS GRAPHIQUES. 


COS: Fonction 


COS (x) 
x est un nombre exprimé en radians. 


La fonction COS calcule le cosinus d’un angle exprimé en radians. 


Exemple: 


19 CLS 

29 PI=3.14159 

30 PRINT ‘ENTREZ UN ANGLE EN DEGRES" 

49 PRINT "LE PROGRAMME LE CONVERTIRA EN RADIANS 
POUR CALCULER SON COSINUS ” 

59 INPUT “ANGLE” ; A 

69 C=PI * A/189 

70 PRINT ‘LE COSINUS DE L'ANGLE” ; À ; “EST” ; COS (0) 
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CSNG : Fonction 


CSNG x) 
x est une variable de type entier ou double précision. 


La fonction CSNG convertit une variable de type entier ou double 
précision en une variable de type simple précision. Pour les variables 
double précision un arrondi est effectué. 


Exemple : 


19 CLS 

20 Pl#= 3.1415926 : A%X = 5: S4 = 4.1234568 
39 PRINT CSNG (PI#), Pl# 

49 PRINT 

59 PRINT CSNG (A%), A% 

69 PRINT 

79 PRINT CSNG (S#), S# 


CSRLIN : Fonction 
CSRLIN 


La fonction CSRLIN renvoie le numéro de la ligne courante. 


Exemples : 


1) 19 CLS 
29 FOR 1=@9 TO 15 
39 PRINT LIGNE” ; CSRLIN 
49 NEXT 


2) Généralement dans un programme lors de l'entrée de données au 
clavier, un test est effectué pour vérifier leur validité. Si celles-ci sont 
mcorréctes, un message d’erreur est imprimé. Ceci est parfois gênant. 
La séquence d'instructions suivantes permet d’effacer le message 
d'erreur et de se repositionner à l’endroit de l’écran où la demande 
d’acquisition avait été faite. 
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199 L= CSRLIN : C = POS(9) 

119 INPUT NOMBRE” : N 

129 ‘ TEST … IF … THEN 309 DONNÉES CORRECTES 

139 COLOR 1 : ? ERREUR ….‘ : COLOR 4 : ? ‘APPUYER SUR LA 
TOUCHE” ; : COLOR @,3: ? ENTREE” : 

149 E$ = INPUTS$(1) 

159 COLOR 4,6 : LOCATE L.C : ? CHR${24) ; 

159 CONSOLE L + 1 : CLS : CONSOLE 9 


DATA : Instruction non exécutable 


DATA CI, C2 


C1, C2 sont des constantes numériques ou alphanumériques. 


L’instruction DATA permet d'inclure des données dans un 


programme BASIC. Une même instruction DATA peut contenir des 
constantes numériques et alphanumériques. Ces dernières peuvent ne pas 
être comprises entre guillemets sauf si elles contiennent un séparateur. 


Exemple: 


19 CLS 

29 READ A, B, C$ 

34 LOCATE À, B 

49 PRINT C$ 

59 READ A$ 

69 PRINT A$ 

79 DATA 5, 12, ESSAI DE DATA 

BQ DATA “ESSAI, AVEC, VIRGULES" 


Remarque : Il ne faut pas insérer de commentaires dans la même ligne de 
programme qu’une instruction DATA. 
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Ainsi 


199 READ AS, B$ 

129 PRINT AS, B$ 

139 DATA EXEMPLE : ‘ Exemple DATA 
149 DATA DONNEES 


devra être écrit pour fonctionner correctement 


199 READ AS$, B$ 
129 PRINT AS$, B$ 
139 DATA EXEMPLE 
135 ‘ Exemple DATA 
149 DATA DONNEES 


DEFGRS: Voir chapitre POSSIBILITÉS GRAPHIQUES (tome 2) 


DEFUSR: Voir chapitre ACCÈS AU LANGAGE MACHINE 


DIM: Instruction 


DIM n, (i, i2, ce), Na (is las ve) 
N,, M …: noms de tableau 
li, 2, 13, ia … : nombre d’éléments de chaque dimension du tableau. 


L’instruction DIM réserve la place en mémoire pour tous les 
éléments des tableaux n,, n2, … 


— Le nombre de dimensions est limité à 255. 
— Les indices peuvent varier entre @ et 32 767. 


— Si un tableau de dimension inférieure ou égal à 3, possède moins 
de 11 éléments, (indice variant de @ à 19), alors il n’est pas nécessaire 
de le dimensionner. 


— Les indices sont toujours arrondis au nombre entier le plus proche. 


Exemple: 


19 CLS 

29 DIM BS$ (59) 

39 REM TABLEAU C NON DIMENSIONNE 
49 FOR 1=@ TO 7 

59 FOR J=—6@ TO 6 

69 FOR K=—@ TO 19 

79 CH JK)=1+J#K 

89 NEXT K, J,1 
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DEFINT, DEFSNG, DEFDBL, DEFSTR 


DEFINT 
DEFSNG 
DEFDBL 41 — 42, 43, … 
DEFSTR 


41, 42, a, sont des lettres de l’alphabet. 


Ces instructions permettent de définir implicitement un type pour 
les variables dont le nom commence : 


— par la lettre de l’alphabet a,. 
ou 


— par une lettre de l’alphabet placée entre a, et a. 


DEFINT définit des variables entières 

DEFSNG définit des variables réelles simple précision 
DEFDBL définit des variables réelles double précision 
DEFSTR définit des chaînes de caractères 


Si un type de variable est précisé directement dans le nom alors la 
déclaration implicite pour cette variable est ignorée. 


Exemple : 


19 CLS 

29 DEFINT A—C 

39 DEFSTR S 

49 DEFDBL H 

59 A = 3.14 : B = 4.55 : C — 2.94 
69 C != 1.47 

79 SEC =" CHAINE" 

89 H3=2.7182818281828 

99 PRINT A, BC, 

199 PRINT C !, SEC, H3 


Les variables dont le nom commence par A, B, C sont de type 
entier, celles commençant par S de type chaîne et celles commençant par 
H réel double précision. 


Toutes les autres sont des variables réelles simple précision. 
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Remarques : 
1) Avec ces instructions vous n’êtes plus obligés de spécifier le caractère 
#, $ et % pour les variables double précision, alphanumériques et 
entières. Ceci peut procurer un gain de place important en mémoire. 


2) Déclarer toujours le type de vos variables avant de les initialiser 
sinon elles seront remises à zéro. 


END: Instruction 
END 


L’instruction END arrête l’exécution d’un programme et referme 
tous les fichiers ouverts. 


L’exécution du programme peut être reprise par la commande 
CONT. 


EOF : Fonction 


EOF (x) 
x est un numéro de canal. 


La fonction EOF permet de détecter la fin d’un fichier séquentiel 
lors d’une relecture du fichier. 


La valeur retournée sera — 1 si la fin du fichier est détectée et ÿ 
sinon. | 


Exemple : 


19 CLS 

29 OPEN “|”, #2, DONNEES‘ 

.30 IF EOF (2) THEN 79 

49 INPUT #2, ! 

59 PRINT I! 

69 GOTO 39 

79 CLOSE2 ‘détection de la fin du fichier 
89 PRINT ‘FIN DU FICHIER” 
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ERL, ERR 


ERL et ERR sont des variables gérées par le BASIC TO7 lors- 
qu’une erreur est détectée dans un programme. Ces deux variables 
mémorisent respectivement le numéro de la ligne programme en cours 
d’exécution au moment de l’erreur et le numéro de code de l'erreur. 
Utilisées avec une instruction ON ERROR GOTO, ces variables servi- 
ront à gérer certains types d’erreur lors de l’exécution d’un programme. 


Voir aussi ON ERROR GOTO 


ERROR: Instruction 


ERROR n 
n est un numéro d’erreur inférieur à 67. 


L’instruction ERROR permet de simuler l’erreur dont le code est n. 
Elle provoque de ce fait l’arrêt de l’exécution du programme (sauf si une 
séquence de traitement d’erreur a été incluse dans le programme). 


Exemple: Le programme suivant est syntaxiquement correct. Cependant 
quand vous lancez son exécution une erreur de syntaxe est détectée ! 


19 CLS 

29 PRINT "ESSAI DE L'INSTRUCTION ERROR‘" 
39 ERROR 2 

49 PRINT “FIN DU PROGRAMME" 


EXEC : Voir chapitre ACCÈS AU LANGAGE MACHINE. 


EXP : Fonction 


EXP (x) 
x est un nombre décimal. 


La fonction EXP permet de calculer l’exponentielle de x. 
Exemple: 


19 CLS 
20 INPUT"X":X 
30 PRINT ‘L'EXPONENTIELLE DE‘ : X : “EST“ : EXP (X) 
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FIX: Fonction 


FIX (X) 
x est un nombre décimal. 


La fonction FIX renvoie la valeur entière de x par troncature. (Elle 
supprime donc la partie décimale de x). 


Ainsi 


FIX (1.95) = FIX (1.91) = 1 
et FIX (— 2.7) = FIX (— 2.4.) =—2 


FOR : Instruction 


FOR I = XI TO XF STEP XP 
I - variable de contrôle de la boucle 
XI : valeur initiale de I 
XF : valeur finale de I 
XP :pas de progression de la boucle. 


L’instruction FOR utilisée avec l’instruction NEXT permet la créa- 
tion d’une boucle. La variable de contrôle de la boucle I ne pourra pas 
être du type réel double précision. Le pas de progression XP peut être 
négatif. 


Les boucles imbriquées sont autorisées, le niveau d’imbrication 
n'étant limité que par la taille mémoire. 


Si la valeur initiale est supérieure à la valeur finale avec un pas de 
progression positif alors la boucle ne sera pas exécutée mais la variable 
de contrôle de la boucle prendra toutefois la valeur initiale indiquée. 


Exemples : 


1) 199 FORA=5+CTOC:«B/D STEP —-2.5 


2) 19 DIM B(190) 
29 FOR 1=@ TO 199 
30 B(1}=1 
49 NEXT I 
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Remarques : 


1) Si l’on ” sort” de la boucle par l’instruction NEXT, la valeur de la 
variable de contrôle sera égale à la valeur finale augmentée du pas de 
progression. Ainsi dans l’exemple suivant, la valeur affichée pour I 
sera 9. 


19 FOR 1=1 TO 2 STEP 8 
20 NEXT | 
30 PRINT | 


2) Il est possible de sortir d’une boucle sans ” passer ” par l’instruction 
NEXT. Toutefois ceci présente deux inconvénients, 


— La variable de contrôle de boucle est toujours considérée comme 
étant utilisée; sa place en mémoire est donc conservée. Ceci 
occupera 15 octets. 


— Si la boucle dont on sort est une boucle imbriquée il faudra préciser 
le nom de la variable de contrôle de la boucle dans l'instruction 
NEXT sinon une erreur NF se produira. Ceci peut être vérifié sur 
l'exemple suivant. | 


19 CLS 

29 FOR 1=1 TO 3 
39 PRINT “AAA” 
49 FOR J=1 TO 2 
45 PRINT "BBB” 
59 GOTO 79 

69 NEXT 

70 NEXT 


modifiez les instructions 69 et 79 comme suit : 


69 NEXT J 
70 NEXT | 


Le programme s’exécutera alors parfaitement. 


3) Voir aussi instruction NEXT 
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FRE: Fonction 


FRE (@) 
FRE (x) 
x est une variable alphanumérique. 


La fonction FRE permet de connaître la place libre en mémoire. 


FRE (#) donnera la place restante pour le programme et les 
variables. 


FRE (A$) donnera la place restante pour les chaînes de caractères. 


Exemple: 


Dans sa version de base le TO7 dispose de 8KRAM en mémoire 
centrale. Regardons la place occupée par les variables internes du 
BASIC. Pour cela il suffit de rentrer en mode commande, dès la mise 
sous tension. 


PRINT 8 « 1 024 — FRE (9) 


Ce qui donne 1 851 octets. Les variables du BASIC occupent donc 
environ 1,5 K en mémoire RAM. Parmi ces 1 851 octets 399 sont réser- 
vés pour le traitement des chaines de caractères. En effet entrez la 
commande CLEAR 9. Ceci réservera zéro octets pour le traitement des 
chaines de caractères. Si l’on redemande le nombre d’octets pris par le 
BASIC nous obtiendrons alors 1 551. 


La commande PRINT FRE(AS$) nous permettra de vérifier que le 
nombre d’octets réservés pour le traitement des chaines de caractères est 
bien nul (suite à la commande CLEAR ). 


GOSUB : Instruction 
GOSUB n 
n est un numéro de ligne. 


L’instruction GOSUB effectue le branchement à un sous- 
Programme dont la première instruction a le numéro n. Un sous- 
Programme peut en appeler un autre, le nombre de niveaux d’appels ne 
dépend que de la taille mémoire disponible. En effet chaque fois qu’un 
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appel de sous-programme est effectué le BASIC TO7 conserve en 
mémoire l’adresse de retour ce qui occupe à chaque fois 7 octets en mé- 
moire centrale. Ces sept octets seront ” libérés” au retour du sous- 
programme. Ainsi un trop grand nombre d’appels ” imbriqués” pourra 
utiliser toute la mémoire disponible. 


Les sous-programmes recursifs sont autorisés (sous-programme qui 
s’appelle lui-même). 


Exemples : 


1) 300 GOSUB 1090 
1909 REM SOUS-PROGRAMME 
1199 RETURN 


2) L'exemple suivant permet de vérifier que l’appel d’un sous- 
programme prend sept octets en mémoire centrale. 


19 CLS 

29 PRINT “PROGRAMME PRINCIPAL" 

39 PRINT ‘PLACE DISPONIBLE"; FRE (9) 
49 GOSUB 199 

59 PRINT ‘PROGRAMME PRINCIPAL - RETOUR” 
69 PRINT ‘PLACE DISPONIBLE” ; FRE (9) 
79 END 

199 REM ‘ SOUS-PROGRAMME" 
119 PRINT ” SOUS-PROGRAMME” 
120 PRINT ‘PLACE DISPONIBLE" ; FRE (9) 
139 RETURN 


Remarque: Voir aussi l'instruction RETURN. 


GOTO: Instruction 


GOTO nl 
n est un numéro de ligne. 


L’instruction GOTO provoque -un branchement à la première 
instruction de la ligne de programme n. 


Exemple: 
199 GOTO 399 
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HEX$: Fonction 


HEXS (x) 
x est une variable numérique dont la valeur est comprise entre 9 ET 
65 535. 


La fonction HEX$ donne la valeur hexadécimale d’une variable 
numérique. 


Exemple: Le programme suivant donne la valeur hexadécimale d’un 
nombre entré au clavier. 


5 REM Conversion en hexadécimal 
19 SCREEN 2,99 
29 CLS: LOCATE 99,9 
39 INPUT ‘NOMBRE ‘” ; N% 
49 PRINT N% : EN DECIMAL EST EQUIVALENT A ” : HEX$ (N%) ; 
‘EN HEXADECIMAL" 
59 INPUT ‘VOULEZ-VOUS CONTINUER (O/N) ” ; R$ 
69 IF R$ ‘’O'”’ THEN GOTO 29 ELSE SCREEN 4,6,6 
79 END 


Remarque : Contrairement aux autres fonctions, si x n’est pas entier, la 
valeur prise pour la conversion sera celle du nombre entier immédiate- 
ment inférieur et non celle du nombre entier le plus proche. 


Ainsi 


PRINT HEXS (19.9) affichera A 


IF … THEN … ELSE: Instruction 


IF cc. THEN instructions ELSE instructions 
ccest une condition 
instructions une ou plusieurs instructions séparées par le caractère : 


Si la condition cc est réalisée alors les instructions situées après 
THEN sont exécutées. Si la condition ce n’est pas réalisée, ce sont les 
instructions situées après ELSE qui seront exécutées. Si, dans ce 
deuxième cas, il n’y a rien à faire, le mot clé ELSE peut être supprimé 
Toutes les instructions, même une nouvelle instruction IF, peuvent être 
utilisées après THEN et ELSE. 


37 


Quand plusieurs instructions IF sont imbriquées, chaque ELSE 
rencontré est associé au premier THEN précédent ” libre” (c’est-à-dire 
qui n’est déjà pas, lui-même, associé à un ELSE). 


Exemples : 
1) 1900 IF A$ — NON‘ THEN END ELSE GOTO 19 
2) 19 CLS 


20 INPUT ‘JOUR, MOIS” ; J, M 

30 IF J> = AND J=<7 THEN IF M <Q OR M > 12 THEN 
PRINT "MOIS INCORRECT'” ELSE PRINT "DATE 
CORRECTE” ELSE If M>@ AND M<13 THEN PRINT 
"JOUR INCORRECT'” ELSE PRINT "JOUR ET MOIS 
INCORRECTS" 


Dans cet exemple, l'instruction IF est évaluée comme suit. 
P 


IF J>=Q AND J=<7 
THENIFM<@ORM> 12 
THEN PRINT "MOIS INCORRECT ” 
ELSE PRINT "DATE CORRECTE" 
ELSEIFM>OANDM<13 . 
THEN PRINT "JOUR INCORRECT” 
ELSE PRINT "JOUR ET MOIS INCORRECTS”" 


Les flèches montrent les associations des mots clés THEN et 
ELSE. 


Remarque : 


1) Reprenons l’exemple 2 en supposant que l’on ne désire rien imprimer 
si la date est correcte. Il suffit pour cela de supprimer l'instruction 
PRINT après ELSE dans le IF imbriqué. Toutefois pour garder une 
association correcte entre les mots clés THEN et ELSE, il faudra 
obligatoirement laisser le ELSE. Examinons les associations réalisées 
dans les deux cas. 
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1) en laissant le ELSE 


IF J>=OANDJ=<7 
THENIFM<DORM>12 
THEN PRINT MOIS INCORRECT ” 
ELSE 
ELSE IF M>9 AND M<13 
THEN PRINT ‘JOUR INCORRECT 
ELSE PRINT “JOUR ET MOIS INCORRECTS" 


Ce qui est bien ce que nous cherchons. 


2) en supprimant le ELSE 


IFJ> = 9 AND J = < 7 
THENIFM <DORM> 12 


THEN PRINT "MOIS INCORRECT ” 
ELSE IFM>OANDM <13 


THEN PRINT "JOUR INCORRECT”" 
ELSE PRINT “JOUR ET MOIS INCORRECTS " 


3) Lorsque le BASIC TO7 évalue une expression logique il affecte à une 
variable interne la valeur — 1 si l’expression est vraie, et Ÿ si l’expres- 
sion est fausse. On pourra donc tester très simplement si une valeur 
est différente de zéro de la façon suivante. 


écrire 190 1F À THEN PRINT “A <> @" ELSE PRINT "A = 9" 


au lieu de 199 1F À = @ THEN PRINT ‘A = Q" ELSE PRINT 
"A < > Q” 


Ceci sera interprété ainsi : 


Si A est différent de zéro la condition est vraie (même si A est diffé- 
rent de — 1). 


Si A = la condition est fausse. 
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INKEY$: Fonction 
INKEYS$ 


La fonction INKEY$ permet de saisir ” au vol” le caractère corres- 
pondant à la touche pressée au clavier. 


Exemples : 


1) 19 CLS 
29 PRINT “APPUYER SUR UNE TOUCHE . POUR ARRETER, 
APPUYEZ SUR LA TOUCHE F” 
30 TOUCHES = INKEYS 
49 IF TS ="F" THEN PRINT “FIN” : END ELSE LOCATE 9, 2,0: 


PRINT "VOUS AVEZ APPUYE SUR LA TOUCHE” : TOUCHES 
: GOTO 39 


2) Le petit programme suivant permet de réaliser un dessin sur l’écran 
en utilisant les touches de déplacement du curseur. Les touches 
RAZ ,L,P et E sont respectivement utilisées pour effacer l’écran 
(le dessin reprendra alors à partir du dernier point tracé), arrêter un 
trait continu, reprendre un trait continu et stopper l’exécution du 
programme. La touche R sélectionne le mode répétition. Toutes vos 
commandes seront par la suite répétées. La touche S permet de reve- 
nir au mode pas à pas. 


19 CLS : SCREEN 3,44 : LOCATE 9,9.9 : PSET (169, 199) 
20 X = 169 : Y = 199 : MS = ”’S'” : CS = CHRS (9) 
30 TS = INKEYS 


35 IF T$ = “ “ THEN IF MS = "R" THEN T$ = C$ ELSE 39 
49 IF ASC (TS) = “12” THEN COLOR 3 : CLS : PSET (X,Y) : 
GOTO 39 
59 IF T$ = “L” THEN LC = 1 : 1 = 1 ELSE IF TS = ‘’P" THEN 
. LC = 9 : GOTO 39 
55 IF LC = 1 AND | = @ THEN PSET (X.Y),, — 5 


69 IFASC(T$)= 9THENX= X + 1 : GOTO 199 
70 IFASC(T$) = 8 THEN X = X — 1 : GOTO 199 
80 IF ASC (TS) = 19 THEN Y = Y + 1 : GOTO 199 
99 IF ASC (T$) = 11 THENY=Y—1 

100 IF X < @ THEN X = 

119 IF Y < O THEN Y = @ 

129 IF TS <> “’R'” AND T$ <> “L' THEN C$=TS$ 


125 IF "TS" = "R" THEN M$ = "R°” 
126 IF “T$" = "S" THEN M$ = "S” 
139 PSET (XY) :1=0 


149 GOTO 39 


Remarques : 


1) En réalité la fonction INKEYS$ n’effectue pas une véritable scrutation 
du clavier mais vient simplement lire le contenu d’un registre interne 
au TO7 dans lequel est mémorisé la dernière touche pressée pendant 
que le TO7 exécutait un programme, un listage, une sauvegarde... 
Nous pouvons le vérifier avec le programme suivant dont les instruc- 
tions 2 à 49 sont des instructions REM. 


1 CLS 
2 REM 
3 REM 


38 REM 
39 REM 
49 REM 
59 PRINT ‘TOUCHE APPUVYEE :"” ; INKEYS 


Demandons un listage de ce programme et arrêtons le en appuyant 
sur la touche STOP. Pressons la touche L pour faire reprendre le listage 
puis lançons l’exécution du programme. Nous obtenons le message 
TOUCHE APPUYEE : L. 


Ceci se révèle parfois gênant. Pour éliminer ce caractère restant il 
suffira alors d’exécuter au moins une fois la fonction INKEY$ avant le 
cas à traiter. 


Dans le programme précédent l'instruction 1 deviendrait. 


1) CLS : A$ = INKEYS 


2) Après avoir lu le registre contenant la dernière touche appuyée, la 
fonction INKEY$ remet le contenu de celui-ci à zéro. Ainsi si un 
appui touche possède plusieurs significations, il faudra le mémoriser 
dans une variable alphanumérique. 


Exemple : Considérons le petit programme suivant écrit de deux façons 
différentes. 


1) 19 CLS 
20 IF INKEYS = "A" THEN PRINT ‘A’ : 
30 IF INKEYS =" B' THEN PRINT ‘B‘ ; 
49 GOTO 29 
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2) 19 CLS 
29 T$ = INKEYS 
30 IF T$="A" THEN PRINT ‘A’ ; 
40 IF T$="B" THEN PRINT ‘B° : 
59 GOTO 29 


Ce programme teste si vous appuyez sur la touche A ou B du 
clavier et l’affiche. Toutes les autres touches sont ignorées. Lançons 
l'exécution du programme 1 et appuyons sur les touches A et B. Nous 
constatons parfois des ”ratés” c’est-à-dire nous entendons bien le 
” beep” indiquant que l’appui touche est valide mais la lettre correspon- 
dante n’est pas affichée. Recommençons la même opération avec le 
second programme. Cette fois ci il n’y a plus aucun problèmes! 
Pourquoi ? 


Reprenons le premier programme et supposons .que lorsque vous 
commencez à appuyer sur la touche À, le TO7 exécute l'instruction 2 f. 
La touche A ne sera donc pas reconnue. A la fin de l’exécution de 
l'instruction 29, le TO7 détectera l’appui sur la touche À, enverra un 
” beep ” pour signaler que l’appui-touche est valide, mémorisera dans son 
registre interne la lettre À et passera enfin à l’exécution de l’instruction 
39. La fonction INKEYS$ lira le contenu du registre interne et remettra 
celui-ci à vide. Ainsi lorsque l’instruction 29 est réexécutée, le registre 
interne ne contient plus la touche ” A” mais est initialisé à vide. 


Avec le second programme, le résultat de la fonction INKEYS$ est 
mémorisé dans une variable alphanumérique qui pourra être référencée 
autant de fois que nécessaire ce qui ne réinitialise pas son contenu. 


3) N'utilisez pas la touche STOP avec INKE Y$. En effet STOP arrête 
exécution du programme. 


INPEN : Voir chapitre CRAYON OPTIQUE. 
INPUT ” texte” {} ki Xe 


s 
texte est une chaine de caractère. 
X1, X2 … sont des noms de variables. 


L’instruction INPUT permet l’entrée de données lors de l’exécution 
du programme. Le texte entre guillemets sera affiché suivi d’un point 
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d’interrogation et d’un espace si la liste des variables est précédée par un 
point virgule. Si la liste des variables est précédée par une virgule, seul le 
texte entre guillemets sera affiché. Les caractères que vous entrerez 
seront alors collés à ce texte. 


Exemple : 


19 COLOR 2,9 : SCREEN, 9 : CLS 
20 PRINT ‘INPUT AVEC UN POINT VIRGULE”‘” 
30 X = 59 : GOSUB 204 
49 INPUT “JOUR” ; M$ : ? : ? : 
59 PRINT "INPUT AVEC VIRGULE” 
69 X=44 : GOSUB 209 
79 INPUT “JOUR”, M$ 
89 END 
209 PRINT “INPUT” ; CHR$(34) ; ‘’texte”’ ; CHRS$(34) ; 
219 COLOR 1 : PRINT CHRS (X) ; : COLOR 2 : PRINT ‘variables, …”’; 
SPC (5) : “donne” : ? : ? 
229 RETURN 


Remarque: Si l’on désire rentrer plusieurs variables avec une seule 
instruction INPUT, il faudra rentrer leurs valeurs en une seule fois en 
séparant chacune d’entre elles par une virgule. 


Exemple: 


19 CLS 
29 INPUT "DATE (JJ/MM/AA)" : J, M, A 


quand le message DATE (JJ,MM,AA) ? apparaîtra sur l'écran vous 
entrerez au clavier 91,19,83 ENTREE . 


INPUT: Instruction 


INPUTÆ c, X1, X2 
c est un numéro de canal 
X1, X2 Sont des noms de variables. 


L’instruction INPUT# permet de relire des données stockées sur 
un fichier. 
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Exemple: 


19 CLS 

20 OPEN “|”, 1,  DONNEE.DAT 
30 PRINT "DEBUT LECTURE‘ 
40 IF EOF(1) THEN 79 

59 INPUT#1, | 

69 PRINT | ; : GOTO 49 

70 PRINT “FIN LECTURE" 

89 CLOSE : END 


INPUT$: Fonction 


INPUTS (x) 
x nombre décimal compris entre @ ET 255. 


La fonction INPUT$ attend que l’utilisateur appui sur x touches du 
clavier. Tous les appuis touche sont mémorisés. L’exécution du 
programme reprendra dès que le nombre de caractères attendus aura été 
rentré. 


Exemple: 


19 CLS 

29 PRINT "FAITES TROIS APPUI-TOUCHE” 

30 A$ = INPUTS$(3) 

49 PRINT ” VOUS AVEZ APPUYE SUR LES TOUCHES” ; A$ 


INPUTPEN: Voir chapitre CRAYON OPTIQUE 


INPUTW AIT : Instruction 
INPUTWAIT n ;t, texte” | 4 X1, X2 


n est un numéro de ligne 

t est un temps en secondes 

texte est une chaîne de caractères 
X1, X2.. Sont des noms de variables 


L’instruction INPUTWAIT permet l'introduction de données au 
clavier dans un temps limité. Si l'utilisateur n’a pas entré ses données au 
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bout du temps t, l’exécution du programme continuera à partir de 
l'instruction n. 


Exemple: 


19 CLS : SCREEN 2, 9,9 

204 INPUTWAIT 39 : 5, ‘"ATTENDEZ 5 SECONDES" 

39 BEEP : PRINT “APPUYEZ SUR UNE TOUCHE EN MOINS DE 
DEUX SECONDES SINON LE PROGRAMME S'AUTO-DETRUI- 
RA !..." 

49 INPUTWAIT 79 : 2, ‘’DEPECHEZ-VOUS |", A$ 

59 FOR | = 1 TO 29 : PRINT CHRS(7) ; : NEXT 

69 LOCATE 15,13,9 : ATTRB 1,1 : COLOR 1 : PRINT "BRAVO" : 
COLOR 2 : END 

70 ATTRB 1,1 : LOCATE 19,13,9 : PRINT ‘TROP TARD !‘ : 
ATTRB 9,9 : NEW 


Remarque : Si vous faites une erreur lorsque vous entrez vos variables, le 
chronométrage recommencera à partir de zéro seconde. 


INSTR : Fonction 


INSTR (i, chaîne 1, chaîne 2) 
i nombre compris entre 1 et 255, peut être omis 
chaîne 1, chaine 2: chaînes de caractère. 


La fonction INSTR renvoie la position de la chaïne 2 dans la 
chaine 1. Si i est spécifié la recherche commencera à partir de la i° lettre 
de la chaîne 1. Si i est omis, la recherche commencera au début de la 
chaîne 1. Si i a une valeur supérieure au nombre de caractères de 
chaîne 1, la valeur retournée par la fonction INSTR sera nulle. 


Exemple: Le programme suivant recherchera une configuration de 


caractères spécifiés dans une chaîne et l’affichera en rouge. Pour arrêter 
le programme appuyer sur la touche S. 
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19 CLS 

29 CONSOLE 6, 12 

39 LOCATE 0,6,9 : T$ = ‘JE SUIS LE T07 DE THOMSON ET 
NOUS VOYONS L'INSTRUCTION INSTR"” 

49 CLS : PRINT T$ 

59 INPUT “CHAINE RECHERCHEE” ; N$ 

69 INPUT “A PARTIR DU CARACTERE NUMERO (ESPACES 
INCLUS)" ; D 

70 IF D <1 OR D>255 THEN 69 ELSE IF D > LEN(TS$) THEN 
PRINT "LA POSITION DE DEPART DEPASSE LA CHAINE” 

89 A=INSTR (D, T$, NS) 

99 IF À = @ THEN PRINT ‘’ LA CHAINE DE CARACTERES ‘ : NS ; 
""N'EXISTE PAS” : GOTO 129 

190 LOCATE 9,6,9 : ? LEFTS (TS, À — 1) ; : COLOR 1 : PRINT NS ; : 
COLOR 2 : PRINT RIGHTS (T$, LEN (T$) — À — LEN (NS) + 1) 

129 LOCATE @, COLOR 1 : PRINT APPUYER SUR UNE TOUCHE” 
; : COLOR 2 : (E$) = INPUTS$(1) : IF E$="S" THEN END 
ELSE 39 


INT : Fonction 


INT (x) 
x est une variable numérique. 


La fonction INT renvoie la partie entière du nombre x c’est-à-dire 
le premier nombre entier, strictement inférieur ou égal à x. 
Exemple: 


19 CLS 
29 PRINT INT (4.5), INT (— 4.5) 
39 PRINT INT (4), INT (— 4) 


LEFT$: Fonction 


LEFTS$ (c, i) 
c est une chaine de caractères 
i est un nombre compris entre Ÿ et 255 


La fonction LEFT$ renvoie les i premiers caractères de la chaine c. 
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Exemple: 


19 CLS : SCREEN 2,0,0 
29 INPUT ‘ENTRER VOTRE TEXTE”: T$ 
30 INPUT ‘NOMBRE DE CARACTERES A PRENDRE” ; N 
49 PRINT LES‘ ; N : “PREMIERS CARACTERES DU TEXTE” : 
T$ ; SONT : ” : 
59 COLOR 1 
60 PRINT LEFTS (T$, N) : COLOR 2 
79 INPUT ‘FIN (O/N)" : R$ 
B9 R$ = ‘OO THEN END | 
99 INPUT ‘NOUVEAU TEXTE (O/N)" : R$ 
199 CLS : IF R$ = "O' THEN 29 ELSE 39 


LEN: Fonction 


LEN (c) 
c est variable alphanumérique. 
La fonction LEN renvoie le nombre de caractères de la variable 


alphanumérique c (c’est-à-dire sa longueur). Une longueur nulle signi- 
fiera que la variable à été initialisée à vide. 


Exemple: Le programme suivant affichera la moitié d’un texte. 


19 CLS 
29 INPUT "TEXTE" ; T$ 
30 PRINT LEFTS (T$, LEN(TS) / 2) 


LET : Instruction 


LET x= y 

x est un nom de variable (numérique ou alphanumérique) 

y est une expression numérique ou une chaîne de caractères ou un 
nom de variable. 


L’instruction LET affecte à la variable x, la valeur de l’expression 
y. Le mot-clé LET est facultatif. 
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Exemple: 


19 CLS 

20 LET A=15 
30 B=-5 
49 PRINT À, B 


Remarque : La forme particulière suivante de l'instruction LET permet 
d’affecter à une variable le résultat d’un test. 
Exemple: 


19 LET X = expression logique 
19 LE X=3*Y<9 


Ceci sera interprété par le TO7 de la façon suivante. 
si 3 « y est inférieur à 9 alors donner la valeur — 1 à X. 


si 3 * y est supérieur ou égal à 9 alors donner la valeur @ à X. 
LINE: Voir chapitre POSSIBILITES GRAPHIQUES 


LINE INPUT: Instruction 
LINE INPUT ”texte” {°}x 


texte est un message qui sera affiché à l’écran 
x est une variable alphanumérique 


L’instruction LINE INPUT permet l’acquisition d’une chaine de 
caractères comportant des signes de ponctuation, des guillemets, etc. 


Cette instruction est analogue à l'instruction 
INPUT texte” { ? } variable alphanumérique à la différence près que 


nous ne mettrons pas de guillémets si le texte à introduire comporte des 
virgules. 


Exemple: 


19 CLS 
29 LINE INPUT “TEXTE” ; T$ 
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LINE INPUTZ: Instruction 


LINE INPUT£# n, c 
n est un numéro de canal 
c est une variable alphanumérique 


Cette instruction est analogue à l'instruction LINE INPUT. Toute- 
fois l’acquisition de la chaîne de caractères ne se fera plus au clavier 
mais à partir du fichier affecté au canal de numéro n. 


Exemple: Ce petit programme fera l’acquisition des enregistrements du 
fichier FIC. 


19 CLS 

20 OPEN “l”, #4, "FIC” 

39 IF EQF(4) THEN CLOSE : END 
40 LINE INPUT #4, ENR$ 

59 PRINT ENRS$ 

69 GOTO 39 


LOCATE: Voir chapitre POSSIBILITÉS GRAPHIQUES. 


LOG: Fonction 


LOG (x) 
x est une variable numérique 


La fonction LOG calcul le logarithme népérien de x. 


Exemple: 


1) Le programme suivant permet de tracer la fonction logarithme népé- 
rien entre @.1 et 39. 


19 CLS: LOCATE @,9,9 : SCREEN 2,0,9 

20 LINE (9,192) — (329,192), — 2 

34 LINE (7,4) — (7,290), 1 

49 FOR 1=@.1 TO 34 STEP @.1 

5@ PSET (I! « 19 + 7, 192 — 39 »« LOG (1) 
69 NEXT 

70 END 


ag 


2) Le programme suivant calcule le logarithme népérien d’un nombre 
quelconque. 


14 CLS :ÉCREEN 2.6.8 
CA IHPUT UHOMNERE":H 
34 IF H 26 THEH COLOR L:FRINT "Hi GOT E 
TRË STRICTEMENT POS ÉTIES, COLOR E Lai TTU 
eA 
44 PRINT MLE LOGARITHNE HEPERIEH GE iH eo" 
EST: "LOGE Ho 
29 IMPUT "ARRET LO<HOM:RErS 
ES IF FEF#="0" THEH END ÊLSE 16 

MID$ : Instruction 


MIDS$ (c;, n3, n2) = C2 
C, et C> sont des chaïnes de caractères 
n, et n2 sont des variables numériques (n est facultatif) 
n, doit être inférieur ou égal à la longueur de la chaîne c:. 


L'instruction MIDS permet de remplacer n, caractères de la chaîne 
C; par n Caractères de la chaîne c:. Le remplacement dans ia chaîne c: 
s'effectuera à partir du n, me caractère. 


La longueur de la chaïîne c; restera fixe: 
Si n, est omis, la totalité de la chaîne c2 sera pris en compte. 


Si n, est inférieur à LEN (c2) alors seuls les n; premiers caractères 
de c; seront considérés. 


Si n, est supérieur à LEN (c:) alors toute la chaîne c; sera 
considérée. 


Exemple: 

1j MECS 
24 A$=°AECDEF" 
34 MID#e A, 4, Zen" 
A FEIHT H$ 
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2) 14 CLS 


3) 


cs Az "ABCOEF EH" : Efe te CHE 
4 MICEE AS. 4.112828 

4 MID$CCS, 2,15 2=F% 

O4 PRIT ASC 


19 CLS 

29 A$ = "CHAINE UN” : B$'” DEUX PLUS LONGUE” 
30 MIDS$ (AS, 8, 16) = BS$ 

40 PRINT A$ 


Avec ce petit exemple vous pouvez constater que la chaîne de 


caractères A$ a gardé la même longueur. Les caractères supplémentaires 
de la chaîne B$ ont été ignorés. 


4) 


Le programme ci-après simule l’instruction MID$. Les caractères 
que vous pensez remplacer apparaîtront en jaune sur fond bleu (après 
clignotement). Les caractères effectivement remplacés dans la chaîne 
apparaîtront en rouge sur fond blanc. 


14 CLS : gaun 

c4 IMFUT "ENTRER UNE CHAINE DE df CARACT 
EREZ MAXIMUM": CS 

34 IF LEHCC$::44 THEH 14 

dn CLS: PRINT CS 

Sù COHSQOLE 1E:ÛLS 

GS IF YVES" THEN Fa 

4 IHPUT'CHAIHE REMPLACANTE" ES 

a IHPUT'RANG Cl CARACTERE À REMPLHCER": 


LECSRLIN : Ch 

IF FSLENC#: THEH COLOR 1:FRINT "LE PR 
HG Cl PREMIER CHRACTERE A REMPLACER CT 
T ETRE INFERIELUR OU ESAL À LA LOHGUEUR LC 
E LA CHAIHE":COLOR É:PRINT "APPUYER SUR 
"::COLOR G.S:FRINT "ENTREE" :COLOR #.4:E% 
= LHPLIT 6 1 5: COMSOLE L-it:CLS: CONSOLE 125: G 
TA FA 

194 Ref]: LOCATE À... 4: COLOR 3, d:ERINTCH 
Re SCREENMS FR, 40%: COLOR Z,f 

114 LOCATEC.L.1:IHPUT'HOMÉÈRE CE CARACTERE 
ES À REMPLACER": 

124 CLS COLOR 3.4 

124 E=R+H 


DL) 
an 
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IF ELENCCSS THEN E=LEH C$ 
FÜR I=1 T0 à 

COLOR ::1'LOCATE RE 

FOR JR TO E-1 

PRIHT CHRgi SCRÉENHE IL, 513 

HET 

FOR ai TO SAHEËAT & 
HET 
LICATE F. 28, &: COLOR 1. 
IF RILÉMERS 48 THEN PÉIHT LEFT#CRS. 
RoaiNMIDgE RS, di-R. LENS I ELSE FRIHT E 


mn Lo Po es 5 KO JIM NE 
3 RD Sr SO 


IF F+Hi ne THEH HELEHS CS FR 
CRETE 1. 7:LOCATE R. 26 4: til =: COST 


UE MMemmeEenrs te 


ER 


Mi=2s. COLOR 18: LOCATE FR. 88, 4 :PRINT 
ue FS,Hi 

COLOR 1.7: LOCATE F3 m4: GOISUR Si 
FOR K=1S rù 1 STEP -1 

COLOR 24: LOCATE FRK A: PRINT SPC Ho; 
COLOR 1:7:LOCATE Rck-1.G:GUSUR SA 


Lo li Pet Fo D TO 


SG GO ire D 


St NEXT K 

324 COLOR 2,4:CL#: IHPUT"YOULEZ-WOUS CONT 
IHUER CON": 

326 CONSOLE G:1F Vé="N" THEN END 

34@ INPUT"YQULEZ-WOUS CHANGER DE CHAIHE 


Ti 
nMERi LIU um dt CO —J MT D CA CN 


CARACTERES COM né 


354 1F Y$="0" THEN 14 ELSE d@ 
SA PRINT CHASE 7 5: 
Sa PRINT LEFTS RS Hi 
ca FOR Mel TO Mi 
234 NEXT M 
2dà RETURH 
Remarque : 


1) Ne confondez pas l'instruction MID$ et Ja fonction MID$! 
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MIDS$: Fonction 


MIDS (c, n,, n2) 
c est une chaîne de caractères 
n, expression numérique dont la valeur est comprise entre 1 et 255 
n, expression numérique dont la valeur est comprise entre 1 et 255. 


La fonction MIDS$ renvoie n, caractères de la chaîne de caractères 
c. Les caractères sont choisis à partir du n, ème caractère de la chaîne c. 
Si n, est omis, toute la chaîne c sera considérée à partir du rang n,. 


Exemple: Le petit programme suivant vous permettra d’essayer difré- 
rentes combinaisons de la fonction MID$. Essayer en indiquant des 
valeurs nulles pour n, et des valeurs de n, supérieures à la longueur de 
votre chaîne de caractères. 


14 CLS: SCREEN 2.4.4 

SH IHPUT MEHTREZ VOTRE CHAIHE GE CHÉMLIE 
FES DC: 

34 CONSOLE 14 

4 CLS 

o TIHPUT "4 FHATIR CE AUEL CARACTERE" :H 
EX IHPUT “HÛMÉRE CE CHRACTERES CENTREE EF 


QU H OT: 525 M$ 

FA IF Né: 2" THEN AS=MIDSEE RS, 1H. VALS M 
ELSE HA$= HIDE ES, H 

SE PRIHT "CHAINE EHTREE: "ES 

S4 FRIHT "LA CHAIHE OÉTENALIE HYEC MID&LRS 


SE 
188 IF M$" THEH FEIHT "MS: 
114 FAIHT Mar MEST "io: COLOR 1 FRLHT 
DE COLOR € 
124 INPUT "HRRET 0H TS 
15G IF Th="0" THEH COHSULE © :EHC 
146 IHPUT "HOLUVELLE CHAIHE CO-Hi"i TS 
156 IF T$="0" THEM COHSOLE 0 SOTI 16 E 
LÈE 44 

MOTOROFF 


MOTORON } : Instructions 


Mise en route et arrêt du magnétophone. 
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NEXT : Instruction 
NEXT i, 2... 
h, i2 variables de contrôle de boucle. i est facultatif. 


L’instruction NEXT incrémente la variable de contrôle de boucle 
du pas de progression. Le contrôle sera donné: 


— à la première instruction après FOR si la boucle n’est pas terminée. 
— à linstruction suivante sinon. 


Si des boucles imbriquées ont la même instruction finale il est 
possible d’utiliser une seule instruction NEXT avec les différentes 
variables de contrôle de boucle séparées par des virgules et en com- 
mençant par la boucle la plus imbriquée. 


Exemple : Le programme suivant dessine un triangle rempli d’astérisques 
de couleur différente. 


CLS :SCREEH #4, 
FOR I<4 TO 24 
LOCATE 4,1: 


1e 
SD 
4 FÜR ef TO I 
ts COLOR C++ MO 
EG PRINT "#4": 
FA HEXT LT 
SA COLOR 
Remarques : 


1) La variable de contrôle de boucle après NEXT peut être omise. Le 
basic du TO7 considérera alors que ce NEXT se rapporte à la 
dernière instruction FOR rencontrée. Si plusieurs boucles imbriquées 
ont la même instruction. NEXT (69 NEXT J,I exemple), elles devront 
être ”’éclatées” en plusieurs instructions NEXT. Ainsi l'instruction 
70 de notre programme pourra être réécrite comme suit : 


7 NEXT :NEXT 


Ceci est avantageux lorsque vous avez besoin de vitesse. Une 
boucle sera exécutée beaucoup plus rapidement si vous omettez les 
variables de contrôle de boucle même si cela vous oblige à mettre 
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plusieurs instructions NEXT. Ceci peut être vérifié avec le petit 
programme classique suivant : 


19 CLS 

29 FOR | = 1 TO 19940 

3Q NEXT | 

49 PLAY DO” : PRINT | 

Chronométrez le temps pris par l’exécution de ce programme (l’exé- 
cution sera terminée quand vous entendrez la note DO). Vous obtenez un 
temps compris entre 17 et 18 secondes. 


Changez maintenant l'instruction 39 NEXT I en 39 NEXT et 
relancez l’exécution du programme vous obtenez un temps compris entre 
12 et 13 secondes. 5 s de moins qu'auparavant! Ceci pourra être très 
utile pour réaliser des graphiques animés. 


2) Voir aussi INSTRUCTION FOR. 


OCT$: Fonction 


OCTS$ (x) 
x est une variable numérique dont la valeur est comprise entre @ ET 
65 535. 


La fonction OCTS$ donne la valeur octale de la variable x. 


Exemple: Le programme suivant affiche un nombre en hexadécimal. A 
vous de le convertir en octal!.…. 


14 CLS : SCREEH €. 

ea LOCATE F.34 : FRINHT'HESACECIMAL ---—- 
ir OCTAL" 

A Porc de, LA rer Ed , 35 0, 1 

5 CONSOLE © 


+6 E 
: : FÉIHT LE HOMERE HEXADEL 
MAL EST: MiHEKS A : LOCATE 4.164 

INPUT "ENTREZ VOTÉE SOLUTION PREDÊCEE 
CE 0 CEXEMPLE: EDGE 
FA IF HA THEH C$="E0H" : PLATOTIUÉDIMT EU 
2COMISONAGOMISO" : #s13 ELSE C="MALUYAI 
Gr etre PLAYOTIASOMICOTSSONMTICAUZSONT 
fs (1 n 


Ti A Hi ro it 
Ex LC 
me 
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COLOR 3,4 : ATIER 1.1 


si 

94 FOR I=1 TO 34 

14 LOCATE 24,85 FEIHT CC 

114 FOR ei TO 34 : HEXT I 

144 COLOR 1 

SA HEXT TI 

146 LOCATE #24 : COLOR 3,4 : FRIHT " 
+: ATTRE 1 


LS IF CH= "MAUVAIS" THEN FEIHT "LA KEPOH 

SE ETAIT "5: COLOR 1: PRINT "ROM: OCTS A 
COLOR 

164 INPUT "CONTINUE Oh "ir 

14 IF C$<"HU THEN COHSOLE 4 : ED ELSE 

CLS : GOT di 


ON ERROR GOTO: Instruction 


ON ERROR GOTO nl 
nl: numéro de ligne du programme. 


L’instruction ON ERROR GOTO provoque un débranchement au 
numéro de ligne nl si une erreur est détectée pendant l’exécution du 
programme. On pourra alors traiter cette erreur en utilisant les variables 
réservées du BASIC TO7: ERR et ERL. La séquence de traitement de 
l’erreur devra se terminer par une instruction RESUME. 


Exemple: Reprenons l’exemple de la fonction OCTS$ et rajoutons 
l'instruction inexistante suivante 45 WWW pour créer une erreur de 
syntaxe. Suite à l'instruction 35 CONSOLE 5 nous ne disposons plus de 
la totalité de l’écran. Rajoutons donc une séquence de traitement d’erreur 
afin de pouvoir redisposer des six premières lignes de l’écran. Nous inse- 
rerons donc les instructions suivantes. 


5 ON ERROR GOTO 1999 


1999 CONSOLE Q 
1919 RESUME NEXT 


Une instruction ON ERROR GOTO nl est annulée par ON 
ERROR GOTO ÿ. On veillera à ne pas introduire l'instruction ON 
ERROR GOTO @ dans une séquence de traitement de l’erreur. 
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ON x GOTO ni, nl... 
ON x GOSUB nl, nl. 


x est une variable dont la valeur est comprise entre @ et 255. 


nl;, nl, sont des numéros de lignes. 


L’instruction ON x GOTO (ON x GOSUB) provoque un débran- 
chement à la ligne programme nl, si x — 1, à la ligne programme nl; si 
x = 2... (ou un appel du sous-programme dont la première instruction a 
le numéro de ligne nl;, nl:,...). Si la valeur de x est nulle ou supérieure au 
nombre de numéro de lignes présents dans l’instruction alors l’instruc- 
tion suivante sera exécutée. 


Exemple: 


14 CLS : SCFEEH £.6.6 

2G FRINT "ENTRER UH HOMBFRE COMFRIS ENTRE 
1 ET 4 ET AFPUYER SUR "à 

34 COLOF &.3 PRINT "EHTREE'":: COLOR &. 


[a] 

43 IHPUT H 

24 IF H < 6 OR H 5 255 THEH FRIHT ie 

E IHCORFECT CHEGATIF ET SUPERIEUR oe ! 
: GOT LH 

6 OM H GOTO 146.244, 344, 4ff 

F4 FRINT "HÜMÉRE HUL OL SUPERIEUR À 4" 
GOTO 24 

146 PRINT " YOUS AVEZ ENTRE UH ":ENHC 

244 PRINT " YOUS AYEZ ENTRE CEUX ": EH 
A4 PRINT " VOUS AYEZ ENTRE TROIS ":EHLC 
444 FRINT " VOUS AYEZ ENTRE GQUATRE ":EHE 


W 
OPEN GOTO, ONPEN GOSUB 
Voir chapitre UTILISATION DU CRAYON OPTIQUE. 
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OPEN: Instruction 
OPEN sens”, # nc, ‘nom de fichier ” 


sens : indique le sens dans lequel les informations sont .échangées 


O pour OUTPUT (Écriture) 
I pour INPUT (Lecture) 
R ou D pour les fichiers à accès direct (disquette uniquement). 


nc est un numéro de canal compris entre 1 et 15 
nom de fichier” est un nom de fichier. 


Quand vous désirez lire ou écrire des données sur la cassette (ou 
sur la disquette), le BASIC TO7 utilise une mémoire tampon (” buffer”) 
de 256 octets pour la cassette et de 128 octets pour la disquette. Chaque 
fois que vous demanderez une écriture ou une lecture, le TO7 remplira 
cette zone mémoire et l’écrira uniquement sur le périphérique corres- 
pondant lorsqu’elle sera pleine. Quand l’exécution de votre programme 
sera terminée, il est peu probable que cette mémoire tampon soit pleine. 
Il faudra alors rajouter une instruction CLOSE pour écrire les infor- 
mations restantes. Le numéro de canal est un nombre compris entre 
1 et 15 qui vous permet de ” repérer ” cette zone mémoire lorsque vous 
travaillez avec un ou plusieurs fichiers. 


Exemple: 


14 QPEH "O"#E, "DONNEES" 
cn ES=IHELIT SE 1 : 

Sà FOR Isi TÙ Ef 

de PRINT #£:7T: 

4 HET I 

É4 ES=IHPUT SE 1 2 

FA CLOSE 


Ce programme écrit 29 nombres sur la cassette. Le nombre d’octets 
écrits est inférieur à 128. Lancez l’exécution du programme et regardez 
les mouvements de la bande rnagnétique. (N'oubliez pas de mettre le 
magnétophone en enregistrement !...). 


Un premier défilement est effectué pour écrire sur la bande un 
“bloc d’entête”. Ce bloc mémorisera différentes informations : nom du 
fichier, programme BASIC, binaire ou ASCII, etc... 
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Appuyez sur une des touches du clavier. Rien ne se passe; les 
données ont été écrites dans la mémoire tampon. Celle-ci n’étant pas 
pleine, aucun transfert n’est effectué vers la bande magnétique. 


Appuyez de nouveau sur une des touches du clavier, la bande 
magnétique se met en mouvement; les données contenues dans la 
mémoire tampon sont écrites sur la bande magnétique avec en plus des. 
informations spéciales indiquant que le fichier est terminé. 


Ce fichier pourra être relu avec le programme suivant. (Il faudra 
auparavant réembobiner votre bande et mettre le magnétophone en 
lecture). 


14 OPEN "1".#164: 
ch FÜR Izi TO 2h 
34 IHPLT #14.4 
4f PRIHT A: 

J4 HEXT I 

EA CLOSE 


"COHHEES" 


Remarques : 


1) Il n’est pas obligatoire d’avoir le même numéro de canal en lecture 
ou en écriture. 


2) Pour la relecture la boucle 29 FOR I = 1 TO 29 peut être remplacé 
par l’utilisation de la fonction EOF (voir fonction EOF). 


3) Avec la cassette vous ne pourrez travailler que sur un seul fichier à la 
fois. 


PEEK : Fonction 


PEEK ad 
ad est une adresse mémoire. 


La fonction PEEK renvoie le contenu de l’adresse mémoire ad. 
Sans l’extension mémoire 16 K la plus haute adresse mémoire est 32 767 
soit 7FFF en hexadécimal. Avec l’extension 16 K cette adresse est 
49 151 soit BFFF en hexadécimal. 
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Exemple: Le programme suivant imprime en hexadécimal le contenu 
d’une zone mémoire. 

14 CLS 

24 IHPUT"AC DEEUT.AC FIHM:AE 


34 FÜR I<A TO E 
4f PRINT HEXGEIPEEKE Tu" 5 
A8 HEXT TI 

Remarques : 


1) Voir aussi chapitre ACCÈS AU LANGAGE MACHINE 


2) L’adresse peut être négative, l’adresse choisie par le TO7 sera alors 
égale à 65 536 + adresse. 


Ainsi: 


PRINT PEEK (— 49) est équivalent à 
PRINT (PEEK (65 536 — 49)) — PRINT (PEEK (65 487)) 


PEN: Voir chapitre CRAYON OPTIQUE 


PLAY : Instruction 


PLAY c 
c est une chaîne de caractère contenant la mélodie à jouer. 


L'instruction PLAY permet de jouer de la musique. Vous disposez 
sur le TO7 de cinq octaves (O = 1 : la plus basse, 5 : la plus haute). Vous 
pouvez aussi faire varier la longueur de la note (L = 1: courte, 
96 longue), le Tempo (T = 1 à 255) et l’attaque (A = @ à 255). 


Les notes sont inscrites ” clairement” dans la chaine de caractères : 
DO, RE, MI FA, SO, LA, SI (seul SOL est tronqué en SO). Vous 
pouvez insérer dans votre mélodie des dièses (#), des bémols (b) et des 
silences P. 


Les valeurs prises par défaut lors de la mise sous tension du TO7 
sont : 


Attaque Ÿ: (note continue) 
Tempo: 5 

Octave: 4 

Longueur: 24 (noire) 
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Remarque : La chaine de caractères ne doit comporter aucun espace. Les 
différentes notes peuvent être séparées par des points virgules. 


Exemples : 


D 16 PLAY "DORENTFASOLASIOSCOPOOIdSTILAGOF A 
MIRECIO" 


2) €6 FLAT "ORE NI: F AR: PF: SUb: SO" 


3) Le programme suivant vous permettra de tester l’effet des différents 
paramètres de l'instruction PLAY. A chaque exécution les para- 
mètres sont remis à leur valeur implicite par le programme. 


1 LS 
ct LOC RTE - ä : FRINT °E 
e DICATE 4,2. LHFLIT 

k LE. à LR 


Ai CE FLAT" 
EMTÉER VOTÉE ME 


36 CLE 
+4 FLAS "OdLEATEAG" 
SÙ INPUT "ATTAQUE 


F1 ! r E 
A INPUT COCTALE € 1-5 ai 0 
IF DEL Of 0:25 THEH ES 
INPUT UTENPO C1-Et ST 

IF TEL DE TSESS THEH 36 

LHPUT  "LUIHGLI Cl-ae it L 

IF LET UE LL: THEH 11H 
HS=STE SE H 2 

HS=NICSE HE. #5 

DIRES TE SE O1 à 

(= HIDE Use, 1 

EL. à 
LéeMICbiLSé.Zz,Z0 
A OTHESTEGET à 
HA OTH=MICSETSÉR. EE, 50 
FLAT NTU4TS+"E AR MI + OI ML LE 
G FLAT 11$ 
A IMPUT "YOULEZ-YOUS CONMTIHUER CO Ha 


ii 


RAR LE 


A] 


To 


ii mimi 
= 
MX 


Si ii 


Hits CA 4 Li 
RAT 


mb ei he lg ji 
Ce = 
ai TZ at 
4 
} 
" 
a" 
enr 


1 LE 
L 


if 
a tn 

Ce 

D 


FAQ Pa Fa Per Pi 


= 
A 


IF FS="0" THEH 36 ELSE FLAY "OgLEA4TS 
CÈQUE ä : EHT 


Ut Hifi mi 


Li 
+ 
BA 
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Remarque : L’instruction PLAY admet comme paramètre une chaîne de 
caractères. Cette chaîne ne peut contenir aucun blanc sinon une erreur 
est détectée. Dans l’exemple 3, il faut donc enlever cet espace. Ceci est 
réalisé avec la fonction MID$. Nous éliminons ainsi systématiquement 
le premier caractère de la chaîne STRS${x) qui est toujours un espace. 
Ceci aurait pu aussi être réalisé avec l'instruction RIGHTS de la façon 
suivante. 


SA AG=STRSEE A 2 
94 AS=RIGHTSC AS, LEHÉ AG 2-1 2 


POINT: Voir chapitre POSSIBILITÉS GRAPHIQUES 


POKE: Instruction 


POKE a, x 
a est une adresse mémoire 
x est un nombre compris entre @ ET 255. 


L’instruction POKE écrit la valeur numérique de x dans la cellule 
mémoire ayant l’adresse a. L'adresse a devra être comprise entre 6 19 
hexa et 7FFF hexa sans extension mémoire et entre 6 I@hexa et 

BFFFhexa si vous disposez d’une extension 16 K RAM. 


Un POKE à une adresse comprise entre Y ET 3FFFH n’aura aucun 
effet (cet espace mémoire est en effet occupé par la mémoire morte). 


Un POKE a une adresse comprise entre 6 9 H et 69FFH pourra 
par contre avoir un effet désastreux ! En effet cet espace est utilisé par le 
TO7 pour mémoriser différentes informations. 


La mémoire écran occupe les adresses 4999 H à 5FFFH. 


Exemple : Le programme suivant vous permettra de modifier la mémoire 
à une adresse voulue. Pour arrêter le programme entrer une valeur néga- 
tive en réponse à la question ” NOUVEAU CONTENU”. 
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= 
Le. 


CLS :SCFEEN €. 
INPUT CACRESSE CEBUT":A 
PRINT H: "CONTENU ACTUEL "3: HEË SC PEER H 


El ii 


IHPUT " HOUMEAL CONTENU: EX 
IF “<4 THEH EHC 

IF #5292 THEN COLOR 1 PÉINT"'E COIT ET 
COMPRIS ENTRE à ET 235": COLOR E: GOT 0 


FÜKE À: A=A+1 
GT 36 


Di JL OMMR. LP 


Er MA A Gi it 


Écrivez dans la mémoire écran avec ce programme! 


Remarque: Comme pour PEEK, l’adresse peut être négative 


POS: Fonction 
POS 


La fonction POS renvoie le numéro de la colonne (9 à 39 ou ÿ à 19 
si on est en double largeur) dans laquelle se trouve le curseur. Cette 
fonction sera surtout utile pour la réalisation de programmes de saisie 
sur écran. 


Exemple : Le programme suivant teste si le curseur se trouve à un endroit 
voulu de l'écran. 


14 CLE 

26 INPUT "POSITION CURSEUR CH % ENTRE 

E IS ET ÈS , “ EM 122":K," 

34 LOCATE 4 

46 IF POS à #5 OR FOS € 15 THEH PRINT "# 
INCORRECT " ELSE IF CERLINe1Z THEH FEI 

HT "CORRECT" ELSE PRINT "Y IHCORRECT" 


Remarque: Voir aussi la fonction CSRLIN. 


PRINT : Instruction 
PRINT x {°} x {°} xs {°}. 


X1, X2, X3 … sOnt des noms de variables, des constantes ou des 
expressions arithmétiques. 
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L’instruction PRINT permet l'affichage de vos résultats sur l’écran. 
La virgule provoque une tabulation toutes les 13 colonnes, alors que le 
point virgule donne un affichage contigu. 


Les nombres positifs seront toujours précédés d’un espace lors- 
qu’ils seront affichés (signe + transformé” en espace pour l’affichage). 


Tous les nombres sont suivis de l’impression d’un espace. 


Exemple : 


FE 5 
=] :A<FGGg 
F = IHT Ji "JANVIER": 4 


Éù Tri 


Ti I 


Remarque 1 : Si une chaine de caractères ne peut pas être affichée totale- 
ment sur la ligne courante, elle sera alors affichée sur la ligne suivante. 


Exemple: 
1 CLS 
ct LOCATE 34.6: PRINT 12245; "CHAIHE DE C 
AFACTERES" 


Le texte ” CHAINE DE CARACTÈRES ” est affiché sur la ligne 
en-dessous de 12 345 malgré le ” ;” qui signifiait : afficher juste après le 
nombre 12 345. 


Remarque 2: Chaque fois que le BASIC du TO7 rencontre une virgule 
dans une instruction PRINT, il fait progresser le curseur jusque la 
prochaine tabulation. Ainsi l’espace entre le dernier caractère affiché et 
la nouvelle position du curseur sera remis à blanc. Toutefois ceci ne 
sera pas réalisé si l’affichage a lieu en fin de ligne (entre les colonnes 
26 et 39). 


Exemple: Dans cet exemple nous remplirons trois lignes consécutives 
avec le caractère ” A” puis nous imprimerons quelque chose sur ces 
lignes. 
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19 CLS : SCREEN 2,9,9 

29 LOCATE 6,5,9 

39 FORI=1TO 129 

49 PRINT “A” ; 

59 NEXT I 

69 LOCATE @,5,9 : COLOR 1,3 
79 PRINT 1, 

89 PRINT 2, 

99 PRINT 3. 


Pour les lignes 1 et 2 tous se passe comme prévu par contre pour la 
ligne 3, la fin de la ligne n’est pas effacée. 


Remarque : Quand vous travaillez en mode page, l'instruction PRINT 
efface la fin de la ligne courante après affichage. 


Exemple: 


19 CLS : SCREEN 2,9,6 

29 LOCATE @,6,9 : COLOR 1,3 
30 PRINT “LIGNE 6” 

49 CONSOLE ,,2 

59 LOCATE @,19,9 

69 PRINT "LIGNE 19” 

70 CONSOLE ,,9 

89 COLOR 2,9 


Pour éviter cela il faut rajouter un point virgule dans l’instruction 
PRINT. 

69 PRINT “LIGNE 19° ; 
— PRINT TAB (x) 

x numéro de colonne. 


La fonction TAB permet de spécifier une colonne particulière lors 
d’une impression. Il n’est pas possible de revenir en arrière sur une même 
ligne avec la fonction TAB. 


Exemple: 


PRINT “TAB” ; TAB(29) : FONCTION” 
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Remarques : 
1) La fonction TAB n’annule pas les effets des séparateurs , et ; 
Ainsi : 
19 PRINT “AAA” ; TAB(16) : "BBB” 
donnera un résultat différent de 19 PRINT ’ AAA”, TAB(16), " BBB”. 


2) TAB(n) remet à blanc les colonnes Ÿ à n—1 
Exemple: 


19 CLS : 

29 ? "AAA. (20 fois) ….” 

39 LOCATE @,9 : COLOR , 1 
49 PRINT TAB(10) ; ‘’x' : 
59 COLOR ,, 1 


Avec ce petit programme nous nous apercevons que les 19 premières 
colonnes sont remises à blanc. 


PRINT # nc, x {'}, x {°}….. 


nc est un numéro de canal. 
X1, X2 variables. 


L’instruction PRINT # permet d’écrire des données sur un 
fichier. Son fonctionnement est analogue à PRINT. Le fichier devra 
avoir été ouvert auparavant (voir instruction OPEN). 


PSET : Voir chapitre POSSIBILITÉ GRAPHIQUE. 


PTRIG: Voir utilisation du crayon optique. 
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READ: Instruction 


READ x1, x2, x3 
X1, X2, X3: noms de variables. 


L’instruction READ affecte aux variables x1, x2, xs... les valeurs 
spécifiées dans les instructions DATA. 


Exemple : 


19 CLS 

20 READ A$, B 

39 FORI=1TOB 

49 PRINT A$ 

59 NEXT | 

69 DATA “TO7 DE THOMSON”, 19 


REM : Instruction 
REM 


L’instruction REM permet d’introduire un commentaire dans un 
programme. Tout ce qui suit une instruction REM est considéré comme 
commentaire même le séparateur ” :”. 


LU 


Cette instruction peut être abrégée par une apostrophe ?. 


Exemple: 


19 REM LES INSTRUCTIONS SUIVANTES SONT CONSIDEREES 
COMME COMMENTAIRE : PRINT BONJOUR” : INPUT A 


199 X = SQR (A) : REM calcul de la racine carrée 
209 Y=V Î 3 : calcul de ’V CUBE” 
RESTORE 


RESTORE n 
n est un numéro de ligne. n peut être omis. 


L’instruction RESTORE replace le pointeur de lecture de l’ins- 
truction READ au début de l'instruction DATA ayant le numéro de 
ligne n ou au début de la première instruction DATA du programme si 
n est omis. 
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Exemple: 
14 CLS 


E4 FRERDG AE 
34  FRIHT "PREMIERE LECTURE ":AiE 


44  FESTOFE 1284 

O4  READ #.F4&.5 

M PRINT "SECONDE LECTURE "Ki F$iG 

FH  RESTORE 

24  FEAD TUE 

34  FRINT "TRQGISIENME LECTURE "CTI ie 

144 CATA 14.15 

114 CATA 5 

128 DATA EUTOS DE THOMSON". 1387 
RESUME 

n 

RESUME { NEXT 


n est un numéro de ligne et peut être omis. 


L’instruction RESUME termine une séquence de traitement de 
l'erreur et continue l’exécution. 


— à la première instruction de la ligne de programme n. 

— à l’instruction suivant celle qui a provoqué l’erreur si NEXT est 
employé. 

— à l’instruction qui a provoqué l'erreur si n est omis. 


Remarque: Voir aussi ON ERROR GOTO, ERROR, ERR, ERL. 


RETURN: Instruction 
RETURN 


L’instruction RETURN provoque le retour au programme appe- 
lant. C’est la dernière instruction exécutée dans un sous-programme. 


Exemple: Voir instruction GOSUB. 


RIGHTS: Fonction 


RIGHTS (c, n) 
c est une chaine de caractères 
n est un nombre compris entre @ et 255. 
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La fonction RIGHTS renvoie les n derniers caractères de la chaîne 
de caractères c. Si n est nul la chaîne renvoyée sera une chaîne vide. 


Exemple: 
14 CLS:SCREEN 2.9.4 
C4 INPFUT'CHAIHE CE CARARCTEREZ 45": 4% 
4 IMPUT'HOMERE CE CARACTERES "iH 
a IF MSG OR Histo THEH FÉIHT "LE HÜNMERE 
CE CARACTEREZ COIT ETRE COMPRISES ENTRE 4 
ET 255": G0TO 34 
S4 LOCATE 4.19. : PRINT "LA FUMCTION KI 
GHTSCAS."iHi" in DONNE LA":" CHAINE DE CAK 
ACTERES SUIVANTE "5 : COLOR 1 :PFRIMT AI 
GHTS$E HS. NH: COLOR € 
Et INPUT "YOULEZ-YOUS CONTINUER COH" ER 


$ 
FH IF K$="H" THEH EHD 

84 INPUT "HOLUVYELLE CHAIHE LOSHI" RS 

34 CLS : IF R$="0" THEN GOTO EG ELSE GOT 
0:34 


RND: Fonction 
RND 


La fonction RND fournit un nombre aléatoire comprise entre Ÿ et 
1, la valeur 1 ne pouvant jamais être atteinte. 


RUN: Voir commande RUN. 
SAVE: Voir commande SAVE. 
SAVEM: Voir commande SAVEM. 


SCREEN: Instruction 
Voir chapitre POSSIBILITÉS GRAPHIQUES 


SCREEN : Fonction 


SCREEN (c, |) 
c numéro de colonne (9 à 39) 
1 numéro de ligne (9 à 24) 
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La fonction SCREEN renvoie le code ASCII du caractère situé 
aux coordonnées colonne, ligne spécifiées. 


Si le numéro de colonne est supérieur à 39 il sera alors forcé à 39. 
De même le numéro de ligne sera forcé à 24 si il est supérieur à 24. 


Les caractères graphiques utilisateur ne sont pas recomus par la 
fonction SCREEN. La valeur retournée par SCREEN sera alors nulle. 
ÎIlen sera de même chaque fois que le caractère scruté ne sera pas identifié. 


Remarque importante : Éteignez le curseur avant d’utiliser la fonction 
SCREEN. En effet pour faire clignoter le curseur le TO7 affiche sur la 
dernière ligne du caractère une ligne de huit points consécutifs puis 
l’efface quelques instants plus tard: 


curseur > 


Si lorsque le TO7 vient lire l’écran le curseur est allumé (voir dessin 
ci-dessus) le caractère ne sera alors pas reconnu et le code renvoyé 
sera 9. Il faut donc éteindre le curseur par l’instruction LOCATE 9,9,9 
avant d'utiliser la fonction SCREEN. 


» 9° 


Exemple : Dans ce premier exemple nous n° ”éteignons” pas le curseur : 
appuyez sur une touche pour déclencher la lecture sur l’écran. De temps 
en temps le code renvoyé sera zéro (au lieu de 6). 


14 CLS 

24 FRIHT"'A" 

34 LOCATE 4.8 

SD ES=INPUTSE 1: 

H=SCREENS 4. 40 LOCATE 4.14 FRIHT # 
GOT 34 | 


Modifiez l’instruction 39 comme suit: LOCATE ,9,9 et relancez 
l'exécution du programme. Le code renvoyé sera toujours 65. 
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Le programme suivant vous donnera les codes des lettres accen- 


tuées et du ç cédille. 


19 CLS pa PAR TA mATIA e X 

24 As="çhéacèee foutu" 

za LOCATE 4 :4.4 ‘ETEINT CURSEUR 
4 PRIHT AS 


SA J=-] 
69 FOR I=i TO LEH S4$2 STEF 3 
74 .I=.J+1 


94 LRTRT "LE CODE DE ":MIDS AS 1.331: " 


190 COLOR 1 : PRINT SCREEN JG 
124 COLOR à 
134 HEXT I 


ES 


Remarque: Dans ce programme nous avons pris deux compteurs I et J. 
L'indice de boucle I progresse de trois en trois. Souvenez-vous en effet, 


qu’une lettre accentuée occupe trois octets. 


l octet pour le code accent (ACC) 
1 octet pour l’accent lui-même 
1 octet pour la lettre (a, €, i, o, u). 


De même pour pouvoir afficher ç ou à nous prenons trois octets 


consécutifs avec la fonction MID$. 


SGN: Fonction 
SGN (x) 
x est une variable numérique. 


La fonction SGN (signé) donne : 


— 1 si x est négatif 
9 si x est nul 
+ 1 si x est positif. 


Exemple: 
14 CLÉ 
ER Ke-29 : eû : EL+SS 
Ga PRINT # ," SGHE Mi Me SONT à 
4 PRINT Ÿ a" SGHE its et SGH TS 
SA PRINT £ ," SGH "Zi" ie" EL Zi 
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SIN: Fonction 


SIN (a) 
a est un angle exprimé en radians. 


La fonction SIN calcul le sinus d’un angle exprimé en radians. 
Exemple: 


IHPUT MCOHHER VOTRE ANGLE EH DELRES 


fr 
ni Li mi 


Let 
= 
au 


TETH=:E LATE I 54  Conersi io nn ET 
+adians 

44 PÉTHT "LE SIHUS D'UN BHUGLE CE: A"DE 
GRES EST'iSINHITETA 


L 


+ 1... 


SKIPF: Voir commande SKIPF 


SPC 


SPC (n) 
n est une variable numérique. 


La fonction SPC sera utilisée pour la présentation de résultats ; elle 
permet en effet de laisser n espaces lors d’un affichage ou d’une im- 


pression. 


Exemple: Le programme ci-dessous trace une diagonale sur l’écran. 


1 CLS 

24 FRIHT "4" 

34 FOR Isi TO 15 

4 FRINT SPC I UE 
314 HEXT 


SQR : Fonction 
SQR (x) 


x est une variable numérique. 


La fonction SQR renvoie la racine carrée de x. 
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in LE 

2 IHEUT MHONERE":H 

SA CIF HG THEH FÉIAT'ENTRER LH HOMÉRE EC! 
SITIFN : GOTO EM 

An FEIAT MA RSCIHE CARRCE DEMSGH; MEET on 
SUR H 


STICK : Voir chapitre EXTENSIONS 


STOP: Instruction 
STOP 


L’instruction STOP termine l’exécution d’un programme. Elle ne 
referme pas les fichiers. 


Pour reprendre l’exécution d’un programme arrêtée par STOP, il 
faudra utiliser la commande CONT au lieu de RUN. En effet la 
commande RUN referme les fichiers et remet toutes les variables du 
programme à zéro avant de commencer l'exécution du programme. 


STR$: Fonction. 


STR$ (x) 
x est une variable numérique. 


La fonction STR$ convertit la variable x en une chaîne 
alphanumérique. 


Cette fonction sera très utilisée pour passer des paramètres à des 
fonctions ou des instructions utilisant des chaînes de caractères. 


Exemples : 


£ TH LIT HOMERE" 1 
24 HÉESTE SRE H 0 
df PRINT HHE 


2) Voir exemple de l'instruction PLAY. 
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STRIG: Voir chapitre EXTENSIONS. 


TAN : Fonction 
TAN (x) 
x est un angle exprimé en radians. 


La fonction TAN calcule la tangente d’un angle exprimé en 
radians. 


TRON . 
TROFF } Instructions 


Les instructions TRON et TROFF permettent respectivement 
d’activer ou d’inhiber le mode TRACE. Dans ce mode le BASIC TO7 
imprimera tous les numéros des lignes programme exécutées. 


Ces instructions seront surtout utilisées lors de la mise au point 
d’un programme. 


UNMASK : Voir chapitre POSSIBILITÉS GRAPHIQUES 
USR : Voir chapitre ACCÈS AU LANGAGE MACHINE 


VAL: Fonction 


VAL (c) 
c est une chaïne de caractère. 


La fonction VAL convertit une chaîne de caractères en variable 
numérique. La conversion sera effectuée jusqu’au premier caractère non 
numérique de la chaîne c et en commençant par la gauche. 


Exemple: 
14 CLS 

24 DATEHEN EL USER" 
36 JOLiRE MALE CATES à 
4 FRIHT CATES., ILE 
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VARPTR : Fonction 


VARPTR (x) 
x est un nom de variable. 


La fonction VARPTR pointe sur le premier octet contenant la 
valeur de x si x est un nom de variable numérique et sur le premier octet 
du descripteur de la chaîne de caractères x si x est un nom de chaîne de 
caractères. Ce descripteur d’une longueur de 3octets, contient la 
longueur de la chaîne et l’adresse à laquelle elle est mémorisée. 


valeur 


exposant mantisse 


exposant mantisse 
Cat ES 


el double précion LT UT UT UT UT TT 7] 


longueur adresse chaîne de caractères 
hs hs, 


chaîne de caractères EE TL adresse cs 


VARPTR 


Exemples : 


1) 


ns 


Lilo 


AEVARETEC 1: ) 
HaBnE£PEEKS À + PEEKC R+1 

PRINT "LA VARIABLE IX EST STÜCKE À L' 
ADRESSE" «A5 "8A VALEUR EST c'iX 


MI St 


r. 

+ 
= 
A 


im 
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2) 
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14 CLS 

BA Age'E HJj EASIC TOF" 

SA LePFEEKS MARETÉS 4% 1 * L'LONOUEUR GE LH 
CHAINE H$ 

An ARCSSÉPEÉEERC VARFTRE AS + PEER WABPTES 

AE DH 

45 FEINT "LA CHATHE DE CAFACTERES EST LH 
SUIVANTE" : COLOR 1 

En FÜE IE TO AtLei 
PRINT CHEgéPEEKS 1 2: 

HEXT I 

COLOR 

PRIHT "ELLE EST STOCEEE 4H L'ACHESSE": 


Dig ji 
9 © Em: 


2 


Utilisation 
du crayon optique 
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Dans ce chapitre nous nous attacherons plus particulièrement aux 
instructions liées au crayon optique. Par contre, nous ne nous attarde- 
rons pas sur son principe de fonctionnement. Ceux qui désirent en savoir 
plus sur cette partie pourront se reporter au livre ” Micro-ordinateurs 
comment ça marche?” paru dans la même collection. 


2.1. GÉNÉRALITÉS 


2.1.1. Réglage du crayon optique 


Avant toute utilisation du crayon optique il faudra, pour obtenir un 
fonctionnement correct, régler la luminosité de votre téléviseur. Pour 
cela revenons à la page de présentation en appuyant sur la touche 
”initialisation programme” ou en arrêtant et en rernettant en marche 
votre TO7. Choisissons à présent le réglage du crayon optique en pres- 
sant la touche 3 au clavier (ou 2 si vous n’avez pas de K7). Nous 
pouvons alors procéder au réglage du crayon optique. Si vous avez 
quelques difficultés pour revenir à la page de présentation, il faut 
augmenter la luminosité de votre téléviseur et repointer le crayon optique 
au centre du petit carré blanc. Dès que celle-ci sera suffisante la page de 
présentation sera réaffichée. Vous pourrez alors faire votre choix en 
pointant le crayon optique dans le carré situé en face du numéro 
correspondant. 


2.1.2. Précision du crayon optique 


L'écran de votre téléviseur peut contenir 25 lignes de 40 caractères. 
Chaque caractère occupe huit points en largeur et huit points en hauteur. 


caractère 1 caractère 2 


8 points 


en hauteur 


SJ ® un À WU D = © 


01 2.3 4 5 6 7 
6 points en largeur 


Chacun de ces points sera reperé par sa place par rapport à une 
origine située en haut à gauche de l’écran. Ainsi si le caractère A dessiné 
ci-dessus est le premier caractère de l’écran le point repéré par la flèche 
aura les coordonnées suivantes : coordonnée horizontale 6, coordonnée 
verticale 5 (la première coordonnée a le numéro zéro. On donnera 
toujours la coordonnée horizontale en premier). Si le caractère est le 
dernier de l’écran, les coordonnées du point repéré seront (318, 198). 


Le crayon optique nous permettra de pointer un point de l’écran et 
de récupérer les coordonnées du point ainsi choisi. Toutefois, avec cette 
méthode nous ne pouvons pas sélectionner tous les points de l’écran. En 
effet pour la coordonnée horizontale, le BASIC TO7 considérera 
toujours que le point choisi avec le crayon optique est le point situé 
au milieu du caractère correspondant. 


Reprenons le caractère A dessiné précédemment en supposant que 
nous l’avons affiché en haut et à gauche de l’écran. Si nous réussissions à 
pointer le point repéré par la flèche, la coordonnée horizontale ren- 
voyée aurait été 3. Si le caractère avait été affiché en bas et à droite de 
l’écran, la coordonnée horizontale aurait été 315. 


Le programme suivant dessine deux diagonales avec des carrés 
blancs. Ces carrés ont la taille d’un caractère. Pointez chacun d’entre eux 
avec le crayon optique. La coordonnée horizontale sera affichée dans le 
bas de l’écran. 


14 CLS:SCREEH 3.4,2 

20 INPUT "AVEZ-VOUS REGLE LE CRATON OPFTI 
QUE CO/N2"i kg 

39 1F R$="H" THEN FRINT "REGLEZ LE CPRAYO 
M OPTIQUE, © RETOUR À LA PAGE HEWL AVEC 
LA TOUCHE ‘INITIALISATIOH FROSRANME" 2" € 
LSE @ 

44 ES=INPUTS 15: COTQ dû 

5@ CLS:COLOR .7 

68 FOR 124 TO 19 

rÿ LOCATE I.:1.B:PRINT" " 

aa NEXT 

98 FOR 1=:9 TO 33 

148 LOCATE 1.1-24:@:PRIHT" " 

114 HEAT 

129 INPUTPEMN X:% 

134 COLOR 3: 4:LOCATE @,22.@:PRINT "LA CC 
CRDOHNÉE HORIZONTALE EST Dr” 

148 PRINT "ARRET GÙ PROGRAMME FAR CNT ns 
:GOTO 124 


Pour la coordonnée horizontale, il n’y a aucun problème. La valeur 
renvoyée est le numéro de la ligne graphique (9 à 199) sur laquelle on 
pointe. 


Rajoutez au programme l'instruction suivante. 


135 LOCATES.23,G:FRINT "LA COORCOHHEE VE 
RTICALE EST :"3% 

Dans cet exemple nous avons dessiné le tour de l’écran en vert. 
Cette zone est normalement inactive pour le crayon optique. Ainsi si 
vous appuyez le crayon optique dans la partie verte en haut ou en bas de 
l’écran la valeur renvoyée pour les coordonnées horizontale et verticale 
sera — |. Par contre si vous appuyez le crayon optique sur le tour de 
l'écran à droite ou à gauche, les valeurs renvoyées seront : 


— pour la coordonnée verticale  :]e numéro de la ligne, 
— pour la coordonnée horizontale : 3 si vous avez pointé à gauche et 
315 si vous avez pointé à droite. 


Pour ce cas, il ne sera donc pas possible de savoir si lutilisateur a 


pointé en dehors de la partie active de l’écran. Une solution consiste 
alors à ne pas utiliser la première et la dernière colonne de l’écran. 


Remarque: Si le crayon optique est pointé en dehors de l’écran les 
valeurs renvoyées seront toujours — 1 (Appuyez le crayon optique sur 
votre table de travail par exemple). Il en sera de même si l’acquisition 
des coordonnées ne se fait pas correctement. 


2.1.3. Couleur de zones pointées 


Vous avez probablement remarqué que dans notre exemple, nous 
avons dessiné les cases en blanc. Ce n’est pas par hasard! En effet toutes 
les couleurs ne conviennent pas avec le crayon optique et pour certaines 
d’entre elles, l’acquisition se révèle délicate. Modifiez l'instruction 59 
comme suit. 


24 IHPUT'COULEUR <@-r ii"; C: CLS: COLOR. C 


et essayez différentes couleurs en entrant un chiffre compris entre Ÿ et 7. 
Pour le noir et le rouge (C = @ et C = 1), l’acquisition des coordonnées 
est délicate ! (La valeur renvoyée pour les coordonnées est toujours — 1). 
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Par contre pour les autres couleurs, aucune difficulté ! 


Remarque: Pour C — 4 les carrés sont dessinés en bleu, le fond de 
l'écran étant déjà bleu, vous ne les verrez pas apparaître! Mais ils ont 
tout de même été dessinés! 


2.1.4. Grandeur des zones de pointage 


Après avoir essayé différentes cases, pointez la dernière case. En 
laissant la pointe du crayon optique appuyée contre le téléviseur et en 
changeant son orientation de droite à gauche vous obtenez des valeurs 
différentes pour la coordonnée horizontale. Il faudra donc, lorsque l’on 
désire pointer des zones avec le crayon optique, les choisir assez 
grandes. En effet si la taille des zones choisies est de un caractère, 
suivant la manière dont nous pointerons le crayon optique, nous pour- 
rons obtenir la coordonnée du caractère suivant (ou du caractère précé- 
dent). Ce qui n’est pas toujours souhaitée! De plus vous pourriez 
croire que le crayon optique de votre TO7 est en panne! 


Ainsi il faudra prendre des zones ayant au moins deux caractères 
de large. (Une zone de deux caractères en largeur et en hauteur est 
parfaite !). 


Ainsi pour une bonne utilisation du crayon optique il faudra: 
Régler la luminosité de votre téléviseur 


Se souvenir que la coordonnée horizontale renvoyée est celle du 
milieu du caractère pointée. 


— Ne pas utiliser les couleurs noire et rouge. 
— Définir des zones de pointage suffisamment grandes. 


2.2. INSTRUCTIONS ET FONCTIONS 
RELATIVES AU CRAYON OPTIQUE 


INPEN : Instruction 


INPEN x, y 
x, y sont des noms de variables numériques. 
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L’instruction INPEN renvoie dans la variable x la valeur de la 
coordonnée horizontale et dans la variable y la valeur de la coordonnée 
verticale d’un point de l’écran choisi avec le crayon optique. Avec cette 
instruction, le BASIC TO7 n’attend pas que l’interrupteur placé au bout 
du crayon optique soit fermé (crayon optique appuyé contre l’écran). Il 
faucra donc systématiquement s’assurer de la validité des coordonnées 
retournées en testant soit la valeur de x, soit la valeur de y. 


Exemple: Avec le programme suivant testez les tremblements de votre 
main ! Laïssez le crayon optique à environ quatre centimètres de l’écran 
et essayez de tracer une ligne verticale continue. 


19 CLS:LOCATE9,9,9 :SCREEN 4,6,6 
29 INPEN X,Y 

309 1F Y<@ THEN 29 ELSE PSET (X,Y) 
49 GOTO 29 


Ce programme peut être arrêté par[CNT) [C].Le programme sui- 
vant vous permettra de réaliser quelques dessins. Son exécution sera 


arrêté par [C]. 


19 CLS:LOCATEG,0,0 :SCREEN 4,6,6 :PSET(169,100) 
20 INPEN X,Y 

30 IF Y<9 THEN 29 ELSE LINE —(X,Y) 

49 GOTO 29 


INPUTPEN : Instruction 


INPUTPEN x, y 
x et y sont des noms de variables numériques. 


L’instruction INPUTPEN a le même rôle que l’instruction INPEN. 
Toutefois avec INPUTPEN, l’acquisition des coordonnées ne sera faîte 
que lorsque l'interrupteur situé au bout du crayon optique sera fermé 
(appuyé contre l’écran); l’exécution du programme sera donc suspendue 
tant que le BASIC TO7 ne détectera pas sa fermeture. 
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Exemples : 


1) Reportez-vous à l’exemple donnée pour la fonction INKEYS$. Nous 
allons réaliser la même chose avec INPUTPEN. A vouez que cela est 
beaucoup plus facile et tellement plus agréable d'utilisation! En 
pointant sur les cases RAZ, POS, LEV et STOP vous pourrez effacer 
l'écran, poser ou lever le crayon. Le point de départ du dessin est au 
centre de l'écran. 


14 CLS:SCREEH 3,4,4 
ch LOCATE 4,1.H:PRI 
TOP 

Sa BOX La dits, 192 
44 Ex € 43, die Fa: 195 
SA EC LES. dit 115,135 


HT " RAZ POS LEY 5 


ni 
ñ : 


ao BQx C1e2. 4 5-1 163.135 - 

CA] PSETS 164, 108 5: C=1 :L=G 

rt CONSOLE 4 

24 IMPUTPEN #,% 

Sa IF Fe THEH 56 

16 IF 219 THEH IF AND 236 THEH 
CLS :C=4 :GOTO 24 ELSE IF 42£# AH: Are TH 
EH L=G:C=4:GOTO SA ELSE IF 22€% AWD “<11 
é THEH L=i:GÜTO 84 ELSE IF 122€% AMD He 1 
Ed THEH £G4 ELSE 24 

114 IF L=i THEH 124 ELSE IF C THEH LINE 
Le, vi ELSE PSET fé n à Ceci 

124 IF FTRIG THEH 12f 

154 GOT &f 

244 COHSOLE A:LOCATE 9, 4.H:SCREEH 4.6.6: 
EHE: 


2) Le programme suivant vous permet de colorier les cases d’un 
rectangle avec différentes couleurs. Choisissez une couleur de la 
palette (à droite) en pointant le crayon optique dans la case située 
devant la couleur choisie. Cette case devient noire. Il ne vous reste 
plus qu’à pointer les cases du rectangle que vous désirez peindre avec 
cette couleur. 
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[= 
1 
ah 


nn 


CLS: LOCATESS.,24.4:SCREEH 4.6.6 
C=f 

FORI=ATOS 

LIHE: @, ZAEI 2-6 128, SG] 1.4 
LIHES16#1I: Gi 1E#I, 164 4 

HEXTI 

FORI=ATOS 

ï Fi 244,2 SOET 1 205, AE I+EE 0,5 
éd: SAEI+10-LCEPS, SHEIT+135% I 


DEC) 


—, 


La 


on 
— à 
— 
IM EX 
1 
= 
= 


4 LOCATES.21.4:FRIHT"Four arreter Foin 
"dans la case blanche" 

1 BCE 295, 1791-6312, 19£1.0 

E BOXE 296, 1760311, 13137 

5 IMPUTPEH %,% 

F IF 2294 AND #<31%3 AND vs1rd4 AHD Y<1 
THEH EEEF : EH 

IF 2229 AHC #<256 AHD V<16G THEH El 
pe £ Cu 266, PASC+EG 1, —f : BOL L'an, 24 
ei LOS, CHEC+2 0, QG: C<INTS 264 1: BOKFS 244 
ZaxC 11 293, LG#C +13 3: ñï: BEEF 

A A=IHTI #16 

14f = HTC 20 5 

9 IF “20 OR #27 OR rh 
164 ECAFE LEXX, COTE LEE 
165 FEEF 

176 GÜTO 115 

344 FBEEF 

314 EMC 


_ 


hr Him bee teen MIE tor 
NOT He DR ns M = 
+) 


+a 


lF' 7 THEM 115 
D boun C 


ONPEN GOTO | 
ONPEN GOSUB ‘ Instructions 


ONPEN GOTO nl, nl... 


ONPEN GOSUB nl,, nl. 
nl;, nl; sont des numéros de ligne du programme. 


L’instruction ONPEN s'utilise toujours en coordination avec 
linstruction PEN (un peu comme les instructions READ et DATA). 
L’instruction PEN permet de définir des zones ” privilégiées ” sur l’écran 
en attribuant à chacune d’entre elles un numéro (voir instruction PEN). 
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L’instruction ONPEN GOTO (ONPEN GOSUB) permet de se 
débrancher à la ligne programme dont le numéro est nli, nl2,. (ou du 
sous-programme commençant à la ligne nl, nl...) suivant que l’on 
pointe le crayon optique dans la zone privilégiée numéro Ÿ, numéro 1... 
Si l’on pointe le crayon optique dans une zone non privilégiée, l’instruc- 
tion suivant l'instruction ONPEN sera exécutée. 


Exemple: Voir instruction PEN. 


Remarques : 


1) L’instruction 


109 ONPEN GOTO 1000,2000 est équivalente à 


109 INPUTPEN X,Y : IF X>=A1 AND X=<A2 AND Y 
>=B1 AND Y=<B2 THEN GOTO 1006ELSE IF X>=A3 
AND X=<A4 AND Y>=B3 AND Y<=—B4 THEN 

GOTO 2000 


Al, A2, BI, B2 sont les coordonnées de la première zone. 

A3, A4, B3, B4 sont les coordonnées de la seconde zone. 
2) Attention avec ONPEN GOSUB. 

En effet examinons la séquence suivante. 


15 OHPEH GOSUE 1646, HE 
114 “SUITE CL TRAITEMENT 


Si l'utilisateur pointe le crayon optique en dehors d’une zone 
privilégiée”, l'exécution du programme continuera avec l’instruction 
119 et les instructions suivantes. 


Si l’utilisateur pointe le crayon optique sur une zone privilégiée, le 
sous-programme placé en 1999 ou en 249 sera exécuté mais lorsque un 
RETURN sera rencontrée, l’exécution se poursuivra avec l’instruction 
119. L’instruction 119 sera donc exécutée dans tous les cas! 


3) L’instruction ONPEN réalise une acquisition des coordonnées x, y 
du point déterminé par le pointage du crayon optique. Toutefois ceci 
se passe de façon interne et il faudra une instruction INPUTPEN si 
vous désirez récupérer ces coordonnées. 
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4) Il est possible d’attribuer deux numéros différents à une même zone. 
Dans ce cas les débranchements seront toujours effectués au numéro 
de ligne qui correspond au plus petit numéro déclaré pour la zone. 
Il est de même lorsque deux zones se chevauchent. 


Exemple: 

Pour le BASIC TO7 la zone 1 est 
uniquement la zone hachurée ; lereste 
appartient à la zone ÿ. Ceci peut être 
vérifié avec le petit programme sui- 
vant. 

zone O 

zone 1 

14 CLS:LOCATE 4. 
26 EOXC 146, 54 3€ 0 à, 150 
34 BOXE ES. 14m 12 25, 1755 
4 Ron 194,56 1-6 204,150 5%, 13026, 146 ci 1 
2: 179 
5 DHPEH COTO 144,2:aa 
64 GOTO 54 
194 PRIHT"'ZÛIHE HUMERD £EFO" 
114 ED 
244 PRIHT"'ZONHE HUMERO LIH" 
“14 EHG 


5) Les zones imbriquées sont autorisées. Toutefois, la zone /a plus 
imbriquées devra avoir le plus petit numéro. L'ordre de déclaration 
des zones dans le programme n’a aucune importance. 


15 CLS 

25 FOR 1=6 TO F 

SA AS1GEC I+1 

44 EU @, 84-A 1-c dé I+1 5-1. 56445 

S4 PEHI 4, EE-A 6 ER I +1 1-1, SEA 5 

SA LOCATE IXS+£, 1@@G: PRINT STR& I: 

ra MEËT I 

og Cz-i 

96 OHFEH GOTO 174,169. 156.144. 134.126, 
119: 166 
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33 GOTO 6 
144 C=C+i 
114 C=C+i 
Eh CzC+i 
159 C=C+1 
144 CeC+1 
154 CeC+i 
164 C=C+1 


174 C=C+1 
154 LOCATER., 22. G:PRINHT "SOHE NUMERO" :C 
134 GOTO S4 


6) Ne définissez pas une zone du type suivant PEN 1;(C « 8 + 4, y,) — 
(C « 8 + 19, y,) ou c est une position caractère sur l’écran (c compris 
entre @ et 39). En effet vous ne pourrez jamais pointer ces zones !.… 
(Reportez-vous au paragraphe Généralités - Précision du crayon 
optique). 


PEN: Instruction 


PEN n,3 (x 1) — (2, 2), 23 (1, V1) — (2, Y'a) 

n, est un nombre compris entre Ÿ et 7 

(x, y1) et (x2, y2) déterminent deux points de l’écran (par leurs 
coordonnées). 


L’instruction PEN permet de définir jusqu’à huit zones ” privilé- 
q P 
giées” sur l’écran. Chaque zone est reperée par un numéro (n,, n:....). 


Les zones définies sont rectangulaires. Les points (x;, y:), (x, 
Y'1)…. et (x2, y2), (x’2, Y’2), … sont les coordonnées des points diagonale- 
ment opposés des rectangles ainsi spécifiées (x, x”). sont donc compris 
entre Ÿ et 319 et (y:, y’1) entre Ÿ et 199. 
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(X2 2) 


(2, Y'2) 


y 


Pour rebanaliser une zone de l’écran il suffira de supprimer les 
coordonnées des points repérant cette zone dans l'instruction PEN. La 
syntaxe de PEN devient alors PEN n;; 


Si l’instruction PEN n’est suivie d’aucuns numéros, toutes les zones 
privilégiées seront rebanalisées. 


Exemple: Reprenons l’exemple donné pour l'instruction INPUTPEN 
mais cette fois ci au lieu de tester les coordonnées nous utiliserons 
l'instruction ONPEN. 


14 CLS:SCREEH 4,4 
24 LOCATES:L.@:PRINT ® EAZ PS LEYW ST 


OF u 
34 EC €, i-c 55, 190 
4 ED# Ssdi-i 3.135 


. …) 
d5 BÛX 643, dit 115; 
SA BOX € 123, 4-6 LEZ, 
55 PENG:iÉ 3, 4-55. 142 
Et PFEHlisd4z, dit Ps, 


63 PEHS:6683.41-6 115,192 

ra PEHS a 

ra FEHdiC, +R au 1332 

80 PSETE 160: 1480 C1 :Lef 

47 COHSÔÈLE 4 

36 OCMPEH GOTO LEA ; 299, 406,546, 154 
JS GOT 34 
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194 IHFUTPEH #7 IF 4 THEH 154 
IF L=1 THEH 126 ELSE IF C THEH LIHE 
“Ti: ELSE PSET cé ©: CeC+1 


| = 
en 
Le, 


124 IF FTRIG THEH 12H 
134 GUTO 364 
eg4 CLS: Ce: GOT SE 
344 L=é:C=n: GOT 36 
446 L=1:GÜTO 34 
244 COHSOLE H:LOCATE SU. G:SCREEH d.6.6: 
EHC 
Remarques : 


1) L’instructon PEN ne visualise pas les zones définies sur l’écran. Pour 
les repérer, utilisez l'instruction BOX (voir chapitre POSSIBILITÉS 
GRAPHIQUES). 


2) Il est possible de spécifier des zones privilégiées de un caractère. La 
syntaxe de l'instruction PEN sera alors. 


PEN nm; (x, y), n2 : (x, y) 


x, x’ et y, y’. seront alors respectivement les numéros de 
colonnes en caractère (compris entre @ et 39) et les numéros de lignes 
(compris entre @ ET 24). Toutefois nous vous déconseillons d’utiliser de 
telles zones. En effet leur pointage est délicat (voir paragraphe 
Généralités). 


PTRIG : Fonction 
PTRIG 


La fonction PTRIG permet de savoir si l’interrupteur du crayon 
optique est fermé (appuyé contre l’écran) ou non. Si il est fermé, la valeur 
renvoyée est — |. 


Cette fonction est très utile lorsque plusieurs coordonnées doivent 
être acquises en suivant. Il sera alors possible de séparer l’acquisition de 
chaque point. 


Exemples : Le programme suivant permet de tracer une ligne entre deux 
points choisis avec le crayon optique. 
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1) 14 CLS:SCREEN 4.6.6 
24 INPUTPEH &.Y:IF #4 THEH 24 
34 PSETCEH. TT: 
44 IMPUTFEH X.%Y:IF #£6 THEH 44 
4 LIHE 4,75 
64 EHC 


Lancez l’exécution de ce programme. Vous voyez OK apparaître 
avant d’avoir eu le temps de pointer l’autre extrémité de la ligne. En effet 
dès que l’acquisition du premier point a été faite, la suite du programme 
est exécutée c’est-à-dire l’acquisition du second point. Introduisons donc 
la fonction PTRIG pour nous permettre de retirer le crayon optique de 
l’écran. 


Ga IF FTRIG THEH 35 


Ainsi nous bouclerons tant que le crayon optique ne sera pas 
décollé de l’écran. 


2) La séquence de programme suivante permet d’attendre un appui 
touche ou un appui du crayon optique. 


100 IF PTRIG THEN INPEN X, Y :1F x <O THEN 199 
ELSE 119 ELSE AS:INKEYS : IF A$= “ ” 
THEN 109 ELSE 119 


110 REM Suite du programme 


90 
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Accès au langage machine 


La Programmation en langage machine consiste à programmer le 
microprocesseur 6 899 situé au cœur de votre TO7. Le but de ce chapitre 
n’est pas de vous apprendre le jeu d’instructions du microprocesseur 
6 899 mais de vous montrer comment faire de la programmation en 
langage machine sur votre TO7. Ceux qui désirent apprendre et 
connaître le jeu d’instructions du microprocesseur 6 899 pourront se 
reporter à un prochain ouvrage de la collection qui traite ce sujet. 


3.1. UTILISATION D'UN LANGAGE ASSEMBLEUR 


Un langage ASSEMBLEUR, vendu sous forme de cartouche enfi- 
chable (encore appelée mémo 7), sera bientôt disponible pour le TO7. 


Cet assembleur vous permettra de programmer directement le 
microprocesseur 6 899 en utilisant les mnémoniques des codes opéra- 
tions. De plus y seront associées plusieurs fonctions facilitant la mise au 
point des programmes (points d’arrêts, examen de registres, ..) 
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3.2. CREATION D'UN PROGRAMME 
EN LANGAGE MACHINE 


Pour créer un programme en langage machine il faut introduire, 
dans la mémoire du TO7,les codes binaires compréhensibles par le micro- 
processeur 6 899. Certaines instructions BASIC particulières permet- 
tront alors de venir exécuter ce programme en langage machine. Cepen- 
dant lors de l’exécution d’un programme écrit en BASIC les variables 
utilisées dans le programme ne sont jamais stockées à une adresse fixe en 
mémoire ; selon les opérations réalisées dans le programme, ces adresses 
sont modifiées. 


Ainsi pour stocker un programme en langage machine il faut 
pouvoir disposer d’un endroit ”sür” (qui ne sera pas écrasé par les 
variables du programme écrit en BASIC). Deux méthodes sont possibles. 


1) Utilisation d’une variable alphanumérique. 


2) Réservation d’une place en haut de la mémoire (instruction CLEAR). 


3.2.1. Utilisation d’une variable alphanumérique 


On peut stocker le programme en langage machine dans une 
variable alphanumérique; chaque caractère de la chaîne sera alors un 
code binaire du programme écrit en langage machine. Cette variable sera 
alors gérée par le BASIC au même titre que les autres variables du 
programme. Pour retrouver l’adresse de cette variable en mémoire nous 
utiliserons la fonction BASIC VARPTR (voir chapitre 1). Toutefois, 
pour les chaînes de caractères, VARPTR ne renvoie pas directement 
l’adresse de la chaîne de caractères mais l'adresse du descripteur de 
chaîne. Ce descripteur contient la longueur de la chaine et l’adresse 
mémoire du premier caractère. Reportez-vous à l’exemple 2 de la fonc- 
tion VARPTR (chapitre 1). Les codes du programme en langage 
machine seront inclus dans une instruction DATA et pourront ainsi être 
lus par une instruction READ. 


Exemple: Réalisons un programme en langage machine pour tracer une 
ligne horizontale et une ligne verticale au milieu de l’écran. 
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Pour cela nous travaillerons directement dans la mémoire écran. 
Celle-ci débute à l’adresse hexadécimale 4 5. Les quarante premiers 
octets de cette mémoire mémorisent l’état de la ligne graphique zéro, les 
quarante suivants, la ligne graphique un, etc. Nous aurons donc le 
programme suivant : 


LOX # 4000 H 8E | 40 | 00 

PSHS X 34 | 19 

LDA # 100 86 | 64 
S LEAX 40, X 38 |88 | 28 

DEC À 4A 

BNE S 26 |FA 

LDB # 255 C6 |FF 

LDA # 40 86 |28 
BOUCLE 1 

STB X+ E7 | 60 

DECA 4A 

BNE BOUCLE 1 26 |FB 

PULS x 35 | 10 

LDB #19 cé | 13 

ABX 3A 

LDB #O1H cé | 01 

LDA # 200 86 | C8 
BOUCLE 2 

STB ,X E7 | 84 

LEAX 49, x 30 | 88 | 28 

DECA 4A 

BNE BOUCLE 2 26 | F8 

RTS 39 


Pour chaque ligne le point situé au milieu est le point dont la coor- 
donnée horizontale est 159. Ce point correspond, dans la mémoire écran 
au dernier bit du dix neuvième caractère (159 — 19 x 8 + 7). Nous nous 
plaçons donc sur le dix neuvième caractère (LDB #19, ABX) puis nous 
mettons à un Je bit 7 de cet octet (STB, X avec B = 1). Chaque ligne 
ayant une longueur de 4ÿ caractères, nous nous positionnerons au milieu 
de la ligne suivante en incrémentant le registre d’index X de 49 (LEAX 


49,X). 


Le programme BASIC réalisant le chargement du programme écrit 
en langage machine sera alors le suivant. 
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18 REM 4#X LANGAGE MACHINE ### 


za LA$="" ‘ INITIALISE LA CHAINE LS 
A YICE 

SG FÜRI=1 TO 49 

49 READC C 

SA LMS=LMS+CHRSE C à 

69 NEXTI 

7h ENC 


1040 DATA SHSE, 84H44. 24H96, 4H34, 24H10, £4H86, 
&H6d4.8&H30.8&H88.LH28, EH4fA, LH2Z6. LHFA. SHCE. 
LHFF , LHS6 : LH2ZS, LHE7 . LHEG. HA, LH2E. LHFE. 
LH3S, KH10. LHC6, LH13. CHA, LHCE , SHA1 , LHEE 
SHCE , LHE 7 : LHB4, &H36, LHSL. LH28. LHA4A, LHL2E ; 
&HF8: &H39 


Lancez l’exécution de ce programme, la chaîne de caractères LM$ 
contient maintenant le programme écrit en langage machine. Vous 
pouvez le vérifier en affichant la chaine LMS$. 


Q REM XXKEKEEÉAEEETEEELEEEEX 

G REM #44 VERIFICATION #*# 

z@24a FEM HERELEEEEELEEEELELEE 

2429 AD=<ZSG#CPEEKS VARFTRS LAS +1 + PEEKCY 
ARPTEC LMS$ +2 ? 

20489 FOR J=AC TO AC+2:3 
2954 PRINT HEXgcFEEKS Ji" 
26 HEXT 

c@r@g EN 


Remarques : 


1) Avec cette méthode vous ne pourrez pas avoir de débranchements 
absolus. En effet la chaine de caractères LMS$ ne gardera pas une 
place fixe en mémoire. Il ne faudra donc utiliser que des débranche- 
ments relatifs. 

2) Les chaines de caractères ne peuvent pas excéder une longueur de 
255 caractères. Le nombre d’octets de vos programmes écrits en 
langage machine sera donc limité à 255 octets au maximum. 


3) N'utilisez pas l'instruction CLEAR après avoir chargé votre 
programme écrit en langage machine. En effet CLEAR réinitialise 
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toutes les variables du programme BASIC. Le programme en langage 
machine serait alors perdu. 


3.2.2. Utilisation de l'instruction CLEAR 


Lorsque vous mettez votre TO7 sous tension, celui-ci recherche la 
plus haute adresse mémoire utilisable. Cette adresse est 7FFFH (ou 
32 767 en décimal) si vous ne disposez pas de l’extension mémoire 
16K RAM et BFFFH avec l'extension 16 K RAM. 


Avec l'instruction CLEAR on peut fixer la plus haute adresse 
mémoire utilisable par le BASIC, c’est le rôle du second paramètre de 
cette instruction. 


Ainsi CLEAR, &H7FF fixera l’adresse 7FF9 (32 752 en déci- 
mal) comme la plus haute adresse utilisable par le BASIC. Les adresses 
7FFIH à 7FFFH seront alors ”ignorées”” et ceci jusqu’à l’exécution 
d’une nouvelle instruction CLEAR ou la mise hors tension de votre TO7. 


Ainsi la place mémoire réservée par une instruction CLEAR ne 
sera pas modifiée par le BASIC (même par une instruction NEW). 


Reprenons l’exemple précédent. Notre programme écrit en langage 
machine avait, une longueur de 49 octets. Nous fixerons donc la plus 
haute adresse utilisable par le BASIC à: 


7FFFH — 28H = 7FD7H 

(BFFFH — 28H = BFD7H si vous avez une extension 16 K RAM) 
et nous stockerons notre programme à partir de l’adresse hexadécimale 
7FD8H (N'oubliez pas que l’adresse 7FD7H est utilisée par le BASIC ; 
revoyez l'instruction CLEAR au chapitre 1). 


Notre programme de chargement sera alors. 

14 CLEAF .SHPFCr " RESERYE 44 OCTETS 
D OÉHPFOS-LHFFFF 3 POUR PROGRAMME ECRIT 
EM LANGAGE MACHIHE 


12 CLEAF £HEFCr " CAVEC 16F RAM: 
6 FOR I=1 T0 46 

24 REAC L 

46 PÜÛKE ÉHFFDOr+I.C 

+3 FÜEE £SHEFOF+I:C * CAVELC 166 FA: 
24 HEXT I 

64 EHC 
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1484 CATA £ 
&Héd , LHSA, & 
&e 


HSE. &H4, LHGG, Hd, LH1A. LHEE 
HE 
&HFF . 4HS6 , LH2 
HC 
HS 


3, LHEE: EHdA, LH; LHFA : LHCÉ à 
53 &HEF 2 HE, Hd. LH2E, LHFE. 
EH2S, &H16, £HCE 
SHCS, HET, LHEd , 
&HFS, 4H39 


LS, EHSA, LHCE, SHO1, LHEE 
LHSG, EHESS, LHER, LHdA, LHZE à 


Remarque: Avec cette méthode nous pourrons utiliser des débranche- 
ments absolus dans le programme en langage machine mais dans ce cas 
le programme ne sera plus relogeable et son implantation dépendra de 
l’espace mémoire dont vous disposez (avec ou sans bloc 16 K RAM) 
alors que dans le cas précédent celle-ci était gérée par le BASIC. 


Le programme de vérification devient alors: 


za REr ÉXELEEHELEELEEEEELEELE 

214 FE ÆXY VERIFICATION #4* 

PAZ FRET EÉEEEEEEELÉEEEEEEEHEE 

SAS AC=ÉLHPFECES ‘ ACELHEFDOS AVEC 16F FENM 
hd FOR J<AC TO AC+33 

CAS FRINT HEXSEFEÉEEL. Jai": 

CAES HET I ; 

zar4 EHC 


3.3. QUELQUES PRÉCAUTIONS 


— Pour revenir correctement au programme BASIC il faut obligatoire- 
ment terminer votre sous-programme écrit en langage machine par 
une instruction RTS (code hexadécimal 39). 


— Le 6 899 possède un registre de page DP. Ce registre de page est 
utilisé par le moniteur du TO7. Il ne faudra donc pas le modifier. Si 
toutefois vous vous servez de ce registre il faudra le réinitialiser 
avant le retour au programme BASIC. 


— De même (si vous utilisez) la pile système S, veillez à la réinitialiser 
correctement avant le retour au BASIC. 
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3.4. EXÉCUTION DU PROGRAMME 
ÉCRIT AU LANGAGE MACHINE 


Deux instructions permettent de venir exécuter un programme 
écrit en langage machine EXEC et USR. 


3.4.1. EXEC 


EXEC: Instruction 


EXEC ad 
ad est l’adresse d’un sous-programme écrit en langage machine. 


L'’instruction EXEC permet de venir exécuter un programme 
écrit en langage machine, sans passage de paramètres entre le 
programme écrit en BASIC et le programme écrit en langage 
machine. 


Exemple: Pour venir exécuter l’exemple précédent nous rajouterons 
à notre programme BASIC l'instruction. 


55 EXEC GH7FD8 


Pour être sûr de bien rester dans la mémoire forme dans notre 
programme nous rajouterons avant l’appel du sous-programme écrit 
en assembleur l'instruction BASIC suivante. 


‘52 CLS : POKE &HE7C3,1 OR PEEK (&HE7D3) 


Remarque: Nous aurions pu inclure ceci dans notre programme 
écrit en langage machine. Faites le vous même pour vous entraîner 
un peu! 


Le listage complet de notre programme est donc. 
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FESERYE 44 OCTETS 
: FOUR FECUGEANNE ECEIT 


1H CLERF .# 
& EHPFOS-ÈHTF 
EH LANGAGE 1 
12 ‘ CLEAR SHEFUT 
28 FOR Is TO 4 
34 READ 
45 PÜKE LHPFDC+L. C 
45 * PÜÉE ÉHEFDP4IC ‘ CHYEC 16E FAN 


LAVEC LEE FANS 


1 OF FÉRECEHEFLE 0 


60 Es 


in FEM 
LEE REF #° 
a eTE AC=EHPFDE ne 
GE FÈR J= Abe Ti 


S AVEC LEk PAM 


3.4.2. Passage de paramètres avec EXEC 


Si l’on désire passer des valeurs entre le programme écrit en 
BASIC et le programme écrit en langage machine il faudra alors réserver 
de la place supplémentaire en mémoire pour venir stocker la valeur des 
paramètres. Ces placés réservées seront initialisées avant l’appel du 
sous-programme avec l'instruction POKE et le résultat sera récupéré 
avec la fonction PEEK. 


Exemple: Écrivons en langage machine un programme très simple. 
Multiplier un nombre donné par deux; le nombre sera compris entre 
® et 127. Le programme sera. 
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LDA NOMBRE B6 7F FF 


ASLA 48 
STA NOMBRE B7 7F FF 
RTS 39 

NOMBRE 00 00 


Ce programme fait huit octets. Nous réserverons un octet supplé- 
mentaire pour mémoriser la valeur du nombre à multiplier par deux. Il 
faudra donc réserver neuf octets pour le programme en langage machine. 
Nous aurons donc le programme définitif suivant. 


19 REM MULTIPLICATION FAR Z 

e4 LDEFIHT H 

34 CLEAR ,&H7FFF-2H99 

44 A=£HPFFF-E4H09 

24 FOR I=A+1 TO A+& 

6 FEADC C 

Fr FOKE I.C 

84 MEXT I 

99 CLS: IHPUT'MNOMERE A MULTIFLIER “:H 

194 PFOKE A+3,H 

114 EXEC H+1 

124 PRINT "LE RESULTAT EST"; FEEKS A+9 

13 IHPUT "ENCORE CO/H5 ":R% 

149 IF R$="0" THEN £4 ELSE EHD 

306 CATA £HB6, &HPF.£&HFF , £H48. £HET7, LHPF, 
SHFF : HS, HAE 


Remarque : Cette méthode ne vous permet pas de travailler aisément sur 
des nombres réels. Il faudrait en effet recopier les quatres octets dans 
lesquels ce nombre est mémorisé. Pour les nombres réels, il sera donc 
préférable de ” passer ” l'adresse à laquelle ces nombres sont rangés en 
mémoire. (Rappelez-vous celle-ci peut être obtenue en utilisant la fonc 
tion VARPTR). 
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Création du programme 
un langage machine 


184 ’ Passañe de l'adresse de la variabl 
2 reelle E 

116 C=VARPTRR 5 

129 KI=INT(D/25S6 

139 H2=D-2S6XINTÉ D/2S6 à 

149 POKE Y.»1 

159 POKE YT+1.#2 


y est l’adresse, dans votre programme en langage machine, à 
laquelle vous sauvegardez l’adresse du paramètre B. 


3.5. DEFUSR ET USR 


L’instruction USR permet de passer directement un paramètre 
entre le programme BASIC et le sous-programme écrit en langage 
machine. 


DEFUSR 


DEFUSR n = a 
n est un numéro compris entre @ et 9 
a est une adresse mémoire. 


L’instruction DEFUSR permet de spécifier l’adresse du premier 
octet d’un sous-programme écrit en langage machine (ie son point 
d’entrée). 


USR 


USR n, (x) 
n est un numéro compris entre @ et 9 
x est un nom de variable ou une constante. 
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L’instruction USR permet de venir exécuter un sous-programme 
écrit en langage machine avec passage d’un paramètre. n permet d’in- 
diquer le programme en langage machine choisi, en correspondance 
avec l'instruction DEFUSR. 


Le passage des paramètres est effectué dans une zone spéciale 
située à l’adresse 6 155. L’adresse de cette zone est donnée par le registre 
X ; l’accumulateur A spécifie le type du paramètre (entier, réel, …). Véri- 
fions cela avec le programme suivant. 


STX ADRESSE | BF | 7F | F9 
STA TYPE B7 | 7F | FB 
LDY # PARAM | 10 | 8E | 7F | FC 
STOCKE LDA #4 86 | 64 
LDB ,X + E6 | 89 
STB Y + E7 AO 
DECA 4A 
BNE STOCKE 26 | F9 
RTS 39 
ADRESSE | 9 40 00 | 00 
TYPE 00 00 
PARAM 00 00 00 00 00 | d0 | 09 | 40 


Remarque : Ce programme stocke aussi la valeur du paramètre. Ceci 
doit en effet être réalisé par le sous-programme écrit en langage machine 
car la zone où le BASIC range le paramètre pour le programme écrit en 
langage machine est temporaire. Cette zone sera utilisée pour d’autres 
opérations par le BASIC. Son contenu est donc détruit : vérifiez le de la 
façon suivante: 


STX ADRESSE | BF 7F FE 
STA TYPE B7 7F FD 
RTS 39 

TYPE 1) (u]4) 

ADRESSE | @ 00 90 


Après appel de ce petit sous-programme, récupérez la valeur de 
l'adresse et du type avec la fonction PEEK puis lisez le contenu de cette 
zone. 
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Exemple: 


5 CLS 

14 DEFUSRS=ELHTFFE 

24 CLERF FFFS 

39 FOR AZSHPFFÉ TO SHPFFEF 

da READG C:POÉE AC 

54 MEXT 

ER ASUSRE dis 2 

PH TYPESFEEES EHFFEC 

SA ACRESSEZLSE*FEERÉS LHPFFE 2+FEEKS £HPFFE 5 
: FRINT "LE CONTENU CE ADREESE EST ":HE 


$i PERF ADRESSE 13° HE Sc FÉES ACREZSE+ 


î 


1: 
1% EH 
_ AU HBE / te LHFE . SHET. EHPF HF DC. 


Vous n'obtenez pas 4 


Revenons à notre programme complet. Nous nous apercevons que 
la valeur du type est en réalité le nombre d’octets de l’argument (2 pour 
les entiers, 4 pour les réels, 8 pour les nombres en double précision et 3 
pour les chaines de caractères — l’argument renvoyé étant alors le 
descripteur de la chaîne). 


14 | 

29 
36 TO LAFFFF 
dE 

SA 

ELA 

É5 A$="Langase machine 
rE 

Et à 

LA | FA, B 5 

114 L ETES 

154 : SE ! 

136 Ju Et 

145 AS : 

is ET ing 

164 EHD 
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SA CATA LHEF . EHPF.ÉHFSSÉHE 

LHIGLHSE . ÉHPF ÉHPC. LME He 1% E 

SHEZ , LHA. LH, LHEE. EHFA, SH3S: HA, “HO, 

LH, HAE, LHAA 2HBG + EH 

1An@ PRINT "ADRESSE : "4: HEXSC 2SEXPEEKRC ENT 

FFSOHPEÉEEL EMPFFA à ; 

1814 FRIMT UTYPE : "3 HE SC PEEES SHPFFE 5 
1624 FÉINT "FARAMETÉE : "3 HEX Se PEEKCEHFFF 

Ca33" M HEKSE FEERKL EHPFFD 4" Mi HEMSE PÈRE 
LLHPFFE 53" ai HEMSc PEEKXSHTFFE 3 

1820 ÉETUEH 


Nous pouvons ainsi vérifier les valeurs passées. Dans le cas ou le 
paramètre est un entier, sa valeur est mémorisé dans les deux derniers 
octets de la Zone tampon. Ainsi lorsque l’on travaillera avec des nombres 
entiers il faudra incrémenter de deux l’adresse contenue dans le registre 


X. 
Loa[o] a [14 
t t 
début de la zone nombre entier 
tampon 


Pour les nombres réels simple ou double précision, la valeur du 
paramètre est stockée sous forme virgule flottante mantisse et exposant. 


EENCIE 


exposant | mantisse 


Nous retrouvons bien la valeur de l’argument donné. En effet 85 est 
l’exposant: la mantisse sera multipliée par 2° — 32. 


Aÿ est la mantisse : ce qui donne une valeur de @,625. 
Ag=1x21+9@x22+1x23—0@.5 + @ + 4.125 = 9,625 
la valeur de l’argument est donc 
32 x 0,625 = 29.0 
Cette représentation ne tient pas compte du signe. En effet, prenons 


— 29 comme argument: Nous obtiendrons la même valeur pour l’argu- 
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ment (85 AŸ 99 09). En réalité le signe de l’argument est mémorisé à 
l'adresse hexadécimale 615D (24 925 en décimal) c’est-à-dire huit octets 
après l’exposant. 


Pour les chaînes de caractères, le paramètre qui est passé est le 
descripteur de zones pointé par X. Celui-ci contient donc la longueur de 
la chaîne et l’adresse où elle est stockée en mémoire. 


or] | | 0 


ms 


h | 


longueur adresse en mémoire 


Dans notre exemple les arguments passés sont: longueur de la 
chaîne 15 octets (ŸF), adresse de la chaîne 6656H. Vérifions-le avec la 
séquence suivante. 


Aa FOR ARLHEESS TO LHSESE+ 14 
ï ñ FRIATCHESE PÉEKE À 13 


Lancer son exécution avec la commande GOTO 3 99. 


Remarque sur les chaînes de caractères 


Si vous travaillez.sur des chaînes de caractères dans un programme 
écrit en langage machine, n’augmentez pas sa longueur. En effet quand 
vous initialisez une chaîne, le BASIC TO7 force l’adresse du descripteur 
de zone avec l’adresse d’initialisation de cette variable chaîne dans la 
liste du programme. 


Exemple: Vérifions ceci en BASIC. Transformons BONJOUR en 
BONSOIR. 


14 CLE 

21 Aie Cit{iQE" - 

sf pre DÉEPEÉEES VHRPTES AS +1 +PEÉEESE YAFPTF: 
eASI+E 

44 AG AD+5 

54 POÉE AD: ASC 

ER PÜÉE AL+z: 
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Si vous demandez un listage de votre programme vous obtenez 
alors le résultat suivant. 


Ü 


ee 
EX 


LS 

Ag="BOMSOTE:" 

ADELIRHFEERES VARFTERS A 141 D+PEEKS VARFTR 
BH 

AL'=ALC+S 

POÉE HE, ASIE MEN 

FOÉE AD+s, MSC 


ui 
Es 
ni 


HDi 


0 
M Ci 


D] 


rs 1 I LL ï 


BONJOUR est devenu BONSOIR dans le programme lui-même! 
Le même phénomène se produira avec un programme écrit en langage 
machine. Le programme suivant transformera BONJOUR en 
BONSOIR. 


LEAX [1,X] 30 98 91 (x) = adr chaîne de 


caractères 
LEAX 3,X 30 03 (x) = adr du J 
LDB #53H C6 53 (B) = code ASCII de lettre S 
STB X+ + E7 81 (x) pointe maintenant sur U 
LDB #49H C6 49 (B) = code ASCII de lettre | 
STB ,X E7 84 
RTS 39 


LEAX [1,X] est un adressage indirect indexé. Nous utilisons un 
adressage indexé car l’adresse renvoyée dans x au moment de l’appel est 
l’adresse du descripteur de zones. Celui-ci fait trois octets. Le premier 
étant la longueur de la chaîne et les deux suivants l’adresse où elle est 
stockée en mémoire. Le 6 899 calculera donc d’abord l’adresse (X) + 1 
puis prendra le contenu de cette adresse comme adresse effective. X poin- 
tera alors sur le premier caractère de la chaine. 


Le programme complet sera donc le suivant. 
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CLS :CLEHF . ENFFF1 

DEFUSR=ÉHTEFE 

H$="EOHIOUR" 

FÜR AD=ELMPFFFZ TO EMPFFE 
FERC C:POÉE AD 


Lili 


SD ULB! 
LS Br D Gi Gi 


Pour éviter ce petit problème il faut donc faire recopier par le TO7 
la variable chaîne dans la zone des variables. Il suffit donc d’insérer 
avant l'instruction 69 l'instruction. 


55 A$ = A$ +" " 


Le BASIC TO7 reconnaïtra alors une concaténation des chaînes et 
recopiera cette variable dans la zone des variables. Toutefois il faudra 
veiller à ne pas dépasser la longueur de la chaine de caractères, ou l’on 
risque de venir écraser d’autres variables. 


Pour le retour au programme BASIC, le passage des paramètres 
s'effectue de la même manière. Il faudra donc initialiser le registre A 
avec le type du paramètre (2: entier, 3: chaine de caractères, 4: réel 
simple précision, 8: réel double précision). Il n’est toutefois pas néces- 
saire d’initialiser le registre X avec l’adresse de la zone où sont rangés les 
paramètres. Cette adresse est supposée être 6155H par le BASIC. 


Exemple: Le programme suivant renverra dans la variable A, l’opposé 
de la variable B. 


14 SCREEH ::@:COLOR &. GLS 


ca © 

34 

4 

DIS FEAC C:PÜÛKE AC 

cû HEXT 

T4 IHPUT " VALEUR GE B "EE 

24 ASLSFÉE 

34 COLOR 3, 4:PRINT "LA YALEUR CE 4 EST " 
A: COLOR 2. 

164 DATA &HES, MAS, LME, LH LHET, LAS, 
HS 
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Pour transformer un nombre réel en son opposé il suffit de complé- 
menter son signe. Celui-ci est mémorisé à l’adresse 615DH. Lors de 
l’appel du sous-programme écrit en langage machine. Le BASIC range 
la valeur de la variable B dans la zone située à l’adresse 6155H et ini- 
tialise les registres À et X avec les valeurs appropriées. Nous ne devrons 
donc pas les modifier. 


LDB 8,X E6 98 
EORB #80H c8 89 
STB 8,X E7 oB 
RTS 39 
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ANNEXE 


Code des instructions du 6 899 


Code 
hexa 


Code 


Mnemonique Mode héxa 


Mnemonique Mode 


LSRA 
RORA 

ASRA 

ASLA/LSLA 

ROLA 

DECA 

INCA 

TSTA 

CLRA 

NEGB 

COMB 

LSRB 

RORB 

ASRB 

ASLB/LSLB 

ROLB 

DECB 

INCB INHERENT 


INHERENT 


DIRECT 
12 NOP INHERENT 
13 SYNC INHERENT 
16 LBRA RELATIF 

17 LBSR RELATIF 

19 DAA INHERENT 
IMMEDIAT 
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Mnermonique 


hexa 

1C ANDCC 
1D SEX 

1E EXG 

1F TFR 

20 BRA 

21 BRN 

22 BHI 

23 BLS 

24 BHS/BCC 
25 BLO/BCS 
26 BNE 

27 BEQ 

28 BVC 

29 BVS 

2A BPL 

2B BMI 

2C BGE 


BUT 


] Code Mnemonique 
[hexa q 
2E BGT 
2F BLE 
39 LEAX 
31 LEAY 
32 LEAS 
33 LEAU 
34 PSHS 
35 PULS 
36 PSHU 
37 PULU 
39 RTS 
3A ABX 
3B RTI 
| 3C CWAI 
3D MUL 
3F SW! 
40 NEGA 
43 COMA 


Mode 


IMMEDIAT 
INHERENT 
IMMEDIAT 
IMMEDIAT 
RELATIF 


RELATIF 


Mode 


RELATIF 
RELATIF 
INDEXE 


INDEXE 
IMMEDIAT 


IMMEDIAT 
INHERENT 


INHERENT 
IMMEDIAT 
INHERENT 


INHERENT 


Mnemonique Mode 


INHERENT 
INHERENT 
INDEXE 


Mnemonique Mode 


ETENDU 


ETENDU 
IMMEDIAT 


IMMEDIAT 
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Code 


Résa Mode 


Mnemonique Mode 


Mnemonique 


ADDA IMMEDIAT 
CMPX IMMEDIAT 
BSR RELATIF 
LDX IMMEDIAT 
SUBA DIRECT 
CMPA 

SBCA 

SUBD 

ANDA 

BITA 

LDA 

STA 

EORA 

ADCA 

ORA 

ADDA 

CMPX 

JSR 


IMMEDIAT 


CE LDU IMMEDIAT 
DIRECT 


DIRECT 


Mnemonique Mode Mnemonique 


DIRECT 

DIRECT 

INDEXE 
! 


DIRECT 
INDEXE 


| 


INDEXE INDEXE 
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Code . : 
Héxa Mnemonique Mode Mnemonique 


SUBA 
CMPA 
SBCA 
SUBD 
ANDA 
BITA 
LDA 
STA 
EORA 
ADCA 


ETENDU 
ETENDU 
IMMEDIAT 
IMMEDIAT 
Code Mnemonique Mode | 
hexa 
ADDB ETENDU 
LDD 
STD 
LDU 
STU ETENDU 
1921 LBRN RELATIF 
1922  LBHI 
1923  LBLS 


1924  LBHS/LBCC 


: 1925  LBCS/LBLO 


1926  LBNE 
1927 LBEQ 
1928  LBVC 
1929  LBVS 
192A  LBPL 
192B LBMI 
192C LBGE 


192D LBLT RELATIF 


Mode 


INDEXE 
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Code 
hexa 


Mnemonique 


Mode 


Mnemonique 


Mode 


RELATIF 
RELATIF' 
INHERENT 
IMMEDIAT 


IMMEDIAT 
DIRECT 


DIRECT 
INDEXE 


INDEXE 
ETENDU 


RE 


LDS 
LDS 
STS 
LDS 
STS 
LDS 
STS 
SW13 
CMPU 
CMPS 
CMPU 
CMPS 
CMPU 
CMPS 
CMPU 
CMPS 


IMMEDIAT 
DIRECT 
DIRECT 
INDEXE L 
INDEXE | 
ETENDU 
ETENDU 
INHERENT 
IMMEDIAT 
IMMEDIAT 
DIRECT 
DIRECT 
INDEXE 
INDEXE 
ETENDU 
ETENDU 


ETENDU 
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